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ABSTRACT 


This  report  describes  a computer  software  system  called  the 
Cloud/Fog  Analysis  system  (CFAS),  which  was  designed  to  be  a subsystem 
of  the  U.  S.  Army’s  Experimental  Prototype  Automatic  Meterological 
System  (EPAMS).  The  function  of  the  CFAS  is  to  create  and  maintain 
information  on  cloud  cover,  fog  and  weather  in  near  real-time  on  a 
mesoscale  grid  network  covering  a given  geographical  area.  The  data 
sources  which  the  CFAS  uses  include  teletype  network  transmissions  of 
surface  and  upper  air  observations  and  cloud  cover  prognostications. 
State  of  the  art  techniques  in  automated  meteorological  data  analysis 
were  adapted  and  utilized  in  the  CFAS.  An  overall  system  description 
as  well  as  detailed  descriptions  of  its  component  modules,  principally 
via  the  medium  of  annotated  flow  diagrams,  are  presented. 
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SECTION  1 
INTRODUCTION 


1.1  GENERAL 

History  has  recorded  many  times  that  the  turning  point  of  major 
battles  hinged  on  weather  factors.  In  spite  of  technological  advances, 
the  effectiveness  of  men  and  equipment  in  today’s  armies  is  still  very 
dependent  upon  vagaries  of  the  weather.  In  fact,  the  need  for  accurate, 
detailed  aviation  weather  to  support  air  mobile  forces  has  intensified. 
Most  of  the  Army  aircraft  fly  relatively  slow  and  low  over  short  distances 
for  small  time  intervals.  These  aircraft  are  more  vulnerable  to  weather 
because  they  cannot  fly  over  it  and  lack  sophisticated  inflight  and 
ground  controls  to  fly  through  it.  They  are  sensitive  to  air  turbulence 
and  most  often  require  visual  orientation  to  accomplish  their  mission. 

Weather  support  information  is  either  not  adequately  provided 
or  involves  a highly  labor-extensive  operation;  however,  major  hardware 
components  exist  today  and,  given  the  appropriate  software,  it  should  be 
possible  to  develop  an  automatic  meteorological  system  to  satisfy  the 
future  needs  of  the  field  Army.  The  U.  S.  Army  Atmospheric  Sciences 
Laboratory  at  White  Sands  Missile  Range  is  developing  such  a system 
called  Experimental  Prototype  Automatic  Meteorological  System  (EPAMS). 

This  final  report  covers  the  development  of  a technology  in  automated 
analysis  of  surface,  upper  air,  and  pilot  weather  observations.  Pro- 
cedures that  operate  on  a near  real-time  basis  were  developed  to  decode, 
interpret  and  analyze  these  data  and  then  create  and  maintain  cloud  and 
fog  information  on  a defined  grid  that  applies  at  any  specified  geo- 
graphical area.  This  computer  program  package  is  called  a Cloud/Fog 
Analysis  System  (CFAS)  and  was  written  for  compatibility  with  and  use 
in  the  EPAMS  program. 
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1.2  CONCEPT  PHILOSOPHIES 

1.2.1  Data  Density 

The  quality  and  operational  utility  of  the  product  of  a meteoro- 
logical data  analysis  system  such  as  the  CFAS  varies  as  a function  of  the 
data  density.  The  data  density  in  turn  varies  extensively  within  the  area 
of  concern  to  the  Army.  In  enemy  controlled  territory  or  so  called  silent 
area,  almost  no  surface  synoptic  observations  can  be  expected.  On  the 
other  hand,  the  regions  in  which  friendly  troops  are  deployed  are  data 
rich,  particularly  in  surface  observations.  Consequently,  given  1)  an 
automated  system  for  collecting  and  processing  these  data  in  real  time,  2) 
an  assist  from  the  information  that  could  be  obtained  from  satellites, 
weather  radar  and  reconnaissance  vehicles;  and  3)  an  appropriate  objective 
analysis  system,  useful  information  on  cloud  cover,  fog,  and  weather 
conditions  in  the  silent  areas  could  be  inferred. 

At  present  the  configurations  of  EPAMS  does  not  contain  pro- 
visions for  a real-time  input  of  satellite  or  weather  radar  data.  To 
assure  its  continued  operational  utility  throughout  the  evolution  of 
available  data  sources  and  densities,  the  CFAS  was  devised  in  such  a 
manner  as  to  provide  the  best  possible  representation  of  cloud,  fog  and 
weather  conditions  under  a wide  range  of  observational  sources  and 
densities. 

1.2.2  Data  Sources 

No  one  type  of  observational  data  completely  depicts  the  Cloud/ 
Fog  fields.  Optical,  infrared  and,  most  recently,  microwave  sensors  on 
board  meteorological  satellites  are  most  effective  in  providing  total 
cloud  cover  and  cloud  tops.  This,  unfortunately,  is  not  the  case  for 
multiple  cloud  bases  and  cloud  or  fog  layers,  which  are  often  obscured 
beneath  higher  clouds.  Analyses  and  predictions  of  global  cloud  coverage 
on  a 25-mile  grid  has  been  automated  at  the  Air  Force  Global  Weather 
Central  (AFGWC)  at  Omaha,  Nebraska,  and  is  available  on  a delayed  time 
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basis  for  input  to  EPAMS.  These  data  have  been  incorporated  in  CFAS  as 
one  of  the  data  sources. 

Cloud  and  fog  data  elements  contained  vi/ithin  regularly  scheduled 
teletype  weather  network  transmissions  such  as  the  hourly  Aviation  Weather 
Reports  (AIRWAYS),  Meteorological  Aircraft  Reports  (METAR),  three  and  six 
hourly  Surface  Synoptic  Reports  (SYNOP),  and  six  hourly  upper  air  wind 
radiosonde  (RAOB)  observations  form  the  major  part  of  the  data  sources. 
These  data  sources  provide  the  most  valuable  near  real-time  weather  obser- 
vations used  in  the  Cloud/pog  Analysis  System.  Also,  provisions  have 
been  made  for  using  unscheduled  military  surface,  upper  air,  and  pilot 
weather  reports  which  are  expected  to  be  available  to  the  EPAMS.  The 
different  types  of  data  are  processed  and  interpreted  to  extract  Cloud/ 

Fog  information  in  such  a manner  that  allows  for  multi-level  analysis 
from  the  surface  to  more  than  three  kilometers  above  ground  level. 

1.2.3  Data  Interpretation  and  Analysis  Techniques  Utilized  in  the  CFAS 

It  is  not  at  all  unusual  to  have  missing  parts  in  a standard 
weather  message  transmission  that  degrades  the  value  of  an  observational 
sequence.  Further,  not  all  pieces  of  available  data  have  the  same  value 
or  reliability.  Procedures  were  established  to  determine  the  validity 
or  ranking  of  the  observational  data  and  to  maintain  the  integrity  of 
the  Cloud/Fog  data  base.  Special  observations,  which  are  reported  when  a 
significant  change  occurs  were  given  greater  weight  than  routine 
messages.  Consideration  was  given  to  the  type  of  routine  observations. 

For  example,  aviation  weather  reports  given  in  the  AIRWAYS  sequence  were 
given  more  value  than  meteorological  observations  contained  within  the 
synoptic  weather  sequence  code.  Likewise,  direct  observational  data  was 
given  priority  over  inferred  information. 

Since  weather  data  is  perishable  and  its  representativeness 
decreases  with  distance,  older  and  more  distant  observations  were  ranked 
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lower  in  value.  Also,  those  weather  messages  containing  either  errors  or 
missing  data  were  given  a weighting  that  reduced  their  influence.  These 
procedures  were  developed  to  rank  the  observational  data  in  a relative 
manner  so  as  to  allow  the  most  basic  and  reliable  data  to  exert  the  great- 
est impact  on  the  objective  analysis  of  clouds  and  fog. 

Both  clouds  and  fog  are  highly  discontinuous  in  the  horizontal 
and  vertical  which  greatly  limits  the  application  of  standard  objective 
analysis  methods.  The  vertical  distribution  and  layering  of  clouds  was 
depicted  by  combining  surface  observations  such  as  low,  middle  and  high 
clouds,  present  weather  and  visibility  with  upper  air  observations  from 
radiosondes  and  pilot  reports.  Although  the  vertical  development  and 
horizontal  continuity  of  clouds  are  dependent  upon  cloud  type  and  the 
interrelation  between  dynamical  variables  (winds  and  vertical  velocities), 
no  attempt  was  made  to  study  and  incorporate  these  features.  Terrain 
was  taken  into  account  at  each  grid  point  in  order  that  the  analyzed  cloud 
heights  could  be  presented  relative  to  above  ground  level  as  is  usually 
desired  by  pilots  flying  via  visual  contact. 

Within  the  scope  of  this  effort,  no  attempt  could  be  made  to 
develop  new  objective  analysis  methods  or  to  establish  quantitative 
figures  of  merit  for  existing  schemes.  Much  remains  to  be  accomplished 
in  a better  understanding  and  formulation  of  more  sophisticated  and 
accurate  objective  analysis  models.  Special  r.ttention  needs  to  be 
focused  on  technique  performance  for  discontinuous  variables  in  data- 
sparse  areas  and  in  devising  ways  to  extract  valuable  weather  informa- 
tion from  nonmeteorological  Army  personnel  to  help  close  the  data  gaps. 
These  types  of  studies  are  basic  to  future  improvements  in  mission 
support  involving  clouds  and  fog. 


1.2.4  Design  Approach 

The  underlying  philosophy  of  this  effort  was  to  proceed  in  a 
manner  that  got  the  job  done  within  the  time  available  by  reducing. 
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interpreting,  and  analyzing  weather  data  to  provide  a computer  automated 
Cloud/Fog  Analysis  that  is  compatible  with  the  present  stage  of  the 
EPAMS  development.  It  is  recognized  that  vastly  different  levels  of 
sophistication  exist  within  the  many  individual  program  elements.  To 
the  extent  possible,  existing  techniques  were  adapted  for  use  including 
selected  elements  of  the  AFGWC  3-D  Nephanalysis  Model  which  was  modified 
and  adapted  for  use  in  the  Army's  EPAMS.  Two  major  options  are  provided 
for  analyzing  the  data.  The  first  uses  all  available  data  to  "create" 
an  initial  or  subsequent  analysis  throughout  the  entire  boundaries  of  a 
region  called  a window,  which  corresponds  the  region  of  responsibility 
of  a field  Army.  The  second  uses  the  available  data  to  "update"  the 
analysis  in  a limited  region  within  the  field  Army's  area,  which  is  called 
a subwindow.  The  overall  logic  of  the  Cloud/Fog  Analysis  System  (CFAS), 
details  of  individual  program  elements,  computer  program  listings,  and 
operating  instructions  are  documented  in  this  report. 


Many  basic  functions  had  to  be  accomplished  before  an  analysis  of 
cloud  cover  and  fog  could  be  made.  Attention  was  directed  towards  insur- 
ing that  each  of  these  intermediate  steps  functioned  properly  so  that  the 
overall  computer  program  system  worked  as  a total  unit.  The  CFAS  program 
was  designed  in  a modular  or  subroutine  construction  to  allow  for  changes 
in  EPAMS  and  to  easily  accept  future  improvements  in  program  elements. 

The  same  attention  and  level  of  effort  could  not  be  given  to  each  program 
element.  Whenever  a choice  was  necessary,  increase  emphasis  was  placed 
upon  those  functions  that  would  be  fundamental  to  any  objective  scheme 
for  analyzing  fog  or  clouds. 
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SECTION  2 

SYSTEM  DESCRIPTION 

The  Cloud/pog  Analysis  System  (CFAS)  is  a computer  software 
package  consisting  of  30  subprograms  coded  in  the  language  of  FORTRAN  V. 
The  CFAS  was  designed  to  be  one  of  the  subsystems  of  the  U.  S.  Army's 
Experimental  Prototype  Automatic  Meteorological  System  (EPAMS).  The  func- 
tion of  the  CFAS  is  to  create  and  maintain  information  on  cloud  cover,  fog 
and  weather  in  near  real-time  on  a square  grid  covering  a user-specified 
geographical  area  from  standard  surface  and  upper  air  observations  and 
cloud  cover  prognostications.  The  development  of  the  CFAS  was  essentially 
engineering  in  nature  in  that  state  of  the  art  technology  in  automated 
analyses  of  meteorological  data  was  adapted  to  the  specific  needs  and 
requirements  of  the  principal  application  of  the  system  (CFAS),  i.e., 
support  of  Army  aviation  operations.  These  modified  techniques  were 
then  incorporated  in  the  system. 

The  data  sources  that  were  specifically  considered  in  the  design 
of  the  CFAS  includes 

1)  Selected  elements  from  scheduled  teletype  network  trans- 
missions of  surface  and  upper  air  observations  such  as 
AIRWAYS,  SYNOP,  METAR,  and  RADIOSONDE  code  messages. 

2)  The  three-hour  prognosis  of  layered  cloud  cover  produced 
by  the  Air  Force  Global  Weather  Central's  (AFGWC)  Three 
Dimensional  Nephanalysis  Model  (3D-NEPH). 

3)  Elements  of  nonscheduled  and  special  weather  observations 
and  reports  with  elements  corresponding  to  those  in  either 
of  the  above  sources. 

These  data  inputs  are  referred  to  collectively  in  this  report  and  in  the 
programming  documentation  as  observations-reports  or  OBS/reP.  The  input 
data  elements  common  to  all  OBS/rEP  are  given  in  Table  2-1.  Input  data 
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TABLE  2-1 

DATA  ELEMENTS  COMMON  TO  ALL  OBS/REP  TYPES 

Variable  Name 

In  CFAS 

Description 

IX 

Distance  in  the  eastward  direction  of  OBS/REP  site 
from  window  reference  point  (hectometers). 

lY 

Distance  in  the  northward  direction  of  OBS/reP  site 
from  window  reference  point  (hectometers). 

IZ 

OBS/reP  site  elevation  above  mean  sea  level  (meters) 

ITIME 

Time  of  OBS/REP  (0-1439  minutes). 

ITYPE 

Type  of  OBS/REP 

1 = AIRWAYS,  -1  if  a SPECIAL 

2 = METAR,  -2  if  a SPECI 

3 = SYNOP,  -3  if  a SPECIAL 

4 = RADIOSONDE,  -4  if  a SPECIAL 

5 = AFGWC,  3D-NEPH 
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elements  specific  to  AIRWAYS,  METAR,  and  SYNOP  type  OBS/REP  are  given  in 
Table  2-2.  Those  elements  specific  to  RADIOSONDE  type  OBS/REP  are 
contained  in  Table  2-3,  and  those  specific  to  the  three-hour  prognosis  of 
layered  cloud  cover  produced  by  the  AFGWC'S  3D-NEPH  model  are  given  in 
Table  2-4. 


From  a collection  of  these  OBS/REP,  the  CFAS  will  create  a new 
or  update  an  existing  Cloud/Fog  Data  Base  (CFEB)  consisting  of  fifteen 
(15)  parameters  (described  in  Table  2-5)  at  each  point  on  a square  grid 
covering  a user-specified  geographical  window. 

In  addition  to  the  OBS/rEP,  the  user  must  provide  the  items 
specified  in  Table  2-6  via  either  the  list  of  arguments  in  SUBROUTINE 
CFEXEC,  (the  CFAS  subprogram  which  interfaces  with  the  EPAMS),  DATA 
statements  in  CFEXEC,  or  PARAMETER  statements  in  SUBROUTINES  CFEXEC, 

COMOBR,  and  CFMAPi  After  more  detailed  testing  and  evaluation  of  CFAS, 
many  of  the  items  in  Table  2-6  will  become  constant  or  move  from  subroutine 
arguments  to  DATA  or  PARAMETER  statement  elements.  For  the  time  being, 
however,  and  in  view  of  the  experimental  nature  of  the  host  system,  EPAMS, 
it  seemed  appropriate  to  incorporate  the  capability  within  CFAS  of  allow- 
ing the  user  to  easily  change  the  more  critical  parameters  of  the  system. 
Suggested  initial  values  for  these  items  are  given  in  the  last  column  of 
Table  2-6. 


The  data  and  control  flow  among  the  principal  subprogram  elements 
of  the  CFAS  are  diagramed  in  Fig.  2-1.  The  following  is  a brief  descrip- 
tion of  the  system. 

The  CFAS  receives  task  commands,  operational  parameters,  and 
OBS/REP  from  the  EPAMS  through  CFEXEC.  The  first  task  command  that  the 
CFAS  must  receive  subsequent  to  startup  of  the  EPAMS  is  to  set  up  the 
OBS/REP  files  on  the  mass  storage  devices,  (i.e.,  TASK=l).  This  job  is 
carried  out  by  BEGIN. 
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icies  1 and  2 given  in  Appendix  II 


The  number  -32768  is  used  throughout  the  CFAS  to  indicate  missing  data 
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DATA 

TABLE  2-3 

ELEMENTS  SPECIFIC  TO  RADIOSONDE  TYPE  OBS/REP 

Variable  Name 

In  CFAS 

Description 

IZ(30) 

Altitude  of  RAOB  reporting  level,  (meters). 

1 IP(30) 

Pressure  at  RAOB  reporting  level,  (millibars 

X 10) . 

: IT(30) 

1 

i 

Temperature  at  RAOB  reporting  level,  (degrees 
Kelvin  x lO). 

j IDD(30) 

Dewpoint  depression  at  RAOB  reporting  level, 
(degrees  Celsius  x lO). 

1 NRRL 

Number  of  RAOB  reporting  levels. 

i 


i 

I 

( 

I 

i 

i 

i 

j 

j 


i 

1 

f 


i 


12 


Variable  Name 
In  CFAS 

NTCLC 

MINBAS 

MAXTOR 

LCOV(l) 

LC0V(2) 

LOOV(3) 

LC0V(4) 

LCOV(5) 

LCOV(6) 

LC0V(7) 

LC0V(8) 

LCOV(9) 


*AGL  = above 


TABLE  2-4 

DATA  ELEMENTS  SPECIFIC  TO  AFGWC 
THREE- HOUR  CLOUD  FORECAST  FIELDS 


Description 

Total  sky  cover  00-100. 

Minimum  base  of  clouds,  AGL*  (dekameters) . 

Maximum  top  of  clouds,  AGL  (dekameters). 

Percent  cloud  cover  in  the  layer  from  surface  to 
45  meters  AGL. 

45  meters  AGL  to  91  meters  AGL. 

91  meters  AGL  to  183  meters  AGL. 

183  meters  AGL  to  305  meters  AGL. 

305  meters  AGL  to  610  meters  AGL. 

610  meters  AGL  to  1067  meters  AGL. 

1067  meters  AGL  to  1524  meters  AMSL**. 

1524  meters  AMSL  to  1981  meters  AMSL. 

1981  meters  AMSL  to  3048  meters  AMSL. 


ground  level. 


**AMSL  = above  mean  sea  level 


TABLE  2-5 

cloud/fog  data  base  parameters 
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Variable  Name 
In  CFAS 

NTCLC 

NCEIL 

NW 

MINBAS 
MAXTOP 
MSP  WE 


LCOV(l) 

LC0V{2) 

LCOV(3) 

LC0V(4) 

LCOV(5) 

LCOV(6) 

LC0V(7) 

LCOV(8) 

LCOV(9) 


Description 

Total  sky  cover  (OO-lOO). 

Height  ceiling  layer,  (dekameters,  AGL),  minus  if 
variable. 

Prevailing  visibility  at  surface,  (meters),  minus 
if  Variable- 

Height  of  base  of  lowest  cloud,  (dekameters,  AGL). 

Height  of  top  of  highest  cloud,  (dekameters,  AGL). 

Most  significant  present  weather  element  (WMO  Code 
4677 ) . 

Percent  cloud  cover  in  the  layer  from 
Surface  to  45  meters  AGL. 

45  meters  AGL  to  91  meters  AGL. 

91  meters  AGL  to  183  meters  AGL. 

183  meters  AGL  to  305  meters  AGL. 

305  meters  AGL  to  610  meters  AGL. 

610  meters  AGL  to  1067  meters  AGL. 


1067 

meters 

AGL 

to 

1524 

meters 

AGL 

1524 

meters 

AGL 

to 

1981 

meters 

AGL 

1981 

meters 

AGL 

to 

3048 

meters 

AGL 

'rl 
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These  parameters  were  made  subroutine  arguments  soley  for  the  convenience  of  testing  and  evaluating  the  analysis  scheme. 
It  is  expected  that  tests  and  evaluations  will  show  that  these  parameters  are  somewhat  site  specific  and  would,  therefore 
be  more  appropriately  set  via  DATA  statements  as  are  the  other  site  specific  parameters. 
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These  parameters  were  made  subroutine  arguments  soley  for  the  convenience  of  testing  and  evaluating  the  analysis  scheme. 

It  is  expected  that  tests  and  evaluations  will  show  that  these  parameters  are  somewhat  site  specific  and  would,  therefore, 
be  more  appropriately  set  via  DATA  statements  as  are  the  other  site  specific  parameters. 


0BS/1?EP  are  input  (i.e.,  TASK=2)  to  the  CFAS  one  at  a time 
through  the  array  OBSRPT  in  the  argument  list  of  CFEXEC.  OBSRPT  is  an 
integer  one  dimensional  array  of  143  words.  The  placement  of  the  indi- 
vidual OBS/reP  elements  in  this  array  is  discussed  in  Section  4.  CFEXEC 
selects  either  SFDINT,  UADINT,  or  AFDINT  to  interpret  the  OBS/REP  on  the 
basis  of  its  type.  Interpretation  of  an  OBS/reP  is  the  calculation, 
determination  or  inference  of  one,  some,  or  all  of  the  CFEB  parameters 
at  the  site  of  the  OBS/REP  from  the  data  therein.  AIRWAYS,  METAR,  and 
SYNOP  type  OBS/reP  are  interpreted  by  SFDINT.  RADIOSONDE  type  data  are 
interpreted  by  UADINT  and  cloud  cover  prognostications  are  interpreted  by 
AFDINT.  After  the  interpretation,  the  first  44  words  of  the  OBS/rEP  are 
filed  by  STOREC. 


With  TASK=3,  CFEXEC  performs  a creation  of  the  CFEB.  Creation 
is  the  generation  of  the  CFIB  parameters  at  every  grid  point  in  the 
window  using  all  filed  OBS/REP  with  associated  observation  or  verification 
times  (time)  no  older  than  a given  time,  TYMOLD.  The  qualifying  OBS/rEP 
are  retrieved  from  the  files  by  RETOBR.  A determination  of  the  appro- 
priate distance  and  time  constant  (DIST  and  TYMC)  to  associate  with  each 
OBS/REP  is  obtained  by  RETOBR.  A "best  reports"  list  is  then  compiled  by 
COMOBR  from  the  list  of  qualified  OBS/reP.  A best  report  is  determined 
at  each  OBS/reP  site  using  the  information  contained  in  all  OBS/rEP 
within  a specified  distance  of  the  site  (DSP  in  Table  2-6).  The  tech- 
niques used  in  formulating  the  best  reports  provide  a means  for  combining 
complementary  information  in  or  resolving  conflicting  interpretations 
among  two  or  more  OBS/REP  close  in  space  and  time  and,  therefore, 
presumably  depicting  the  identical  meteorological  situation.  The  best 
reports  file  is  input  data  to  CFMAP,  which  uses  an  exponential  time- 
distance  weighting  scheme  in  analyzing  the  CFDB  parameters  at  the  grid 
points.  The  newly  created  CFDB  is  then  output  to  a file. 


The  steps  in  an  update,  TASK=3,  are  the  same  as  those  in  a 
creation.  In  the  update,  however,  the  CFDB  parameters  are  calculated 
for  a subsection  of  the  window  referred  to  as  a subwindow.  The  parameters 
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which  specify  the  subwindow  are  supplied  by  the  user  and  input  through 
the  argument  list  of  CFEXEC. 

Detailed  descriptions  of  each  of  the  subprograms  in  the  CFAS 
are  given  in  Section  3. 


SECTION  3 

DESCRIPTION  OF  CFAS  SUBPROGRAMS 
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The  procedures  and  techniques  embodied  in  the  CFAS  subprograms 
are  described  in  this  section.  Annotated  flow  diagrams  have  been  used 
extensively  in  the  descriptions  of  the  subprograms.  Step  identification 
labels  in  the  flow  diagrams  correspond  to  symbolic  statement  labels, 
whenever  the  latter  are  present.  In  the  cases  where  a step  identifica- 
tion label  is  required  in  the  flow  diagram  because  of  a page  break  or 
where  the  explicit  depiction  of  a DO  loop  is  needed,  an  alphabetic  label 
is  used  in  the  flow  diagram.  It  is  hoped  that  this  labeling  correspon- 
dence will  facilitate  the  reader's  comparison  of  the  flow  diagram  with 
the  program  code  listings  in  Appendix  I. 

The  major  emphasis  of  the  flow  diagrams  is  to  show  the  logical 
processes  in  the  subprogram.  To  facilitate  this,  detailed  descriptions  of 
numerical  calculations  are  not  shown  in  the  flow  diagrams. 


3.1  SUBPROGRAM  ELEMENT  AFDINT 

SUBROUTINE  AFDINT  is  used  to  process  the  layered  cloud  cover 
Vr  forecasts  from  the  AFGWC  3D-NEPH  model.  The  height  boundaries  of  the 

•j 

I first  six  layers  in  the  3D-NEPH  model  output  are  referenced  to  ground 

level  and  are  identical  to  the  boundaries  of  the  first  six  layers  in  the 
CFDB.  Consequently,  the  forecast  cloud  cover  for  these  layers  as  well  as 
the  forecast  total  cloud  cover,  minimum  base  and  maximum  top  require  no 
processing  for  use  by  the  CFAS.  The  height  boundaries  of  the  remaining 
||  layers  are,  however,  referenced  to  mean  sea  level.  This  data  together 

a with  the  terrain  elevation  at  the  location  of  the  3D-NEPH  data  is  used 

^ by  AFDINT  to  calculate  cloud  cover  in  the  seventh  through  ninth  layers 

< of  the  CFDB. 
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3.2  SUBPROGRAM  ELEMENT  BAKUTM 

3.3  SUBPROGRAM  ELEMENT  BEGIN 

3.3.1  Storage  and  Retrieval  Initialization  Via  Subroutine  BEGIN 

Two  files  called  File  I and  File  J are  used  for  OBS/REP  data 
storage.  File  I contains  recent  data  records  while  older  data  records 
are  maintained  in  File  J.  To  store  an  OBS/REP  data  record  in  the  (BS/REP 
data  base,  the  user  simply  calls  subroutine  STOREC  and  supplies  the 
starting  address  of  the  OBS/REP.  Subroutine  STOREC  stores  the  OBS/kEP 
in  File  I,  performs  bookkeeping  functions,  and  when  necessary,  transfers 
older  OBS/REP  data  records  from  File  I to  File  J in  order  to  make  room 
for  more  recent  OBS/REP  data  records  in  File  I. 

File  J is  a ring  buffer  of  NBLKFJ  blocks,  where  each  block 
contains  NRPBFJ  OBS/REP  data  records.  These  variables  are  initialized 
in  subroutine  BEGIN.  Subroutine  BEGIN  defines  the  number  of  words  per 
OBS/REP  data  record  as  NWDREC  and  thus  the  number  of  words  per  block  in 
File  J equals  NWDREC  * NRPBFJ  which  is  called  NWDBKJ.  When  it  becomes 
necessary  to  transfer  OBS/REP  data  records  from  File  I to  File  J,  the  NRPBFJ 
oldest  data  records  in  File  I are  stored  in  table  JBUF,  in  order  of  obser- 
vation time,  and  the  contents  of  JBUF  are  transferred  to  File  J as  the 
next  block  in  the  ring.  After  NBLKFJ  blocks  have  been  stored  in  File  J, 
the  next  block  is  stored  over  the  oldest  and  so  on.  Since  all  block  trans- 
fers between  core  and  mass  storage  File  J are  through  buffer  JBUF,  the 
user  should  insure  that  the  dimension  of  JBUF  is  greater  than  or  equal  to 
NWDBKJ. 


The  size  of  File  J will  depend  on  the  amount  of  mass  storage 
available  and  the  number  of  hours  of  old  data  which  the  user  wishes  to 
maintain.  The  size  of  the  blocks  in  File  J will  depend  on  the  amount  of 
core  storage  which  the  user  can  allocate  for  the  dimensioned  table  JBUF. 
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Subroutine  STOREC  will  be  called  upon  to  store  OBS/REP  data 
records  having  random  observation  times  during  the  past  several  minutes 
or  hours.  The  purpose  of  File  I is  to  maintain  the  most  recent  NINTAB 
OBS/REP  data  records  in  terms  of  observation  time.  Since  recent  date  is 
likely  to  be  the  most  valuable  data.  File  I is  structured  in  a manner 
which  facilitates  usage  of  recent  OBS/REP's.  Blocks  in  File  I contain 
0BS/4ieP's  observed  in  sub-areas  of  the  grid  map.  Retrieval  of  a block 
from  File  I brings  all  the  OBS/REP's  for  that  sub-area  into  core  in  one 
mass  storage-to-core  transfer. 

As  mentioned  above,  the  oldest  OBS/REP  data  records  are  trans- 
ferred from  File  I to  File  J on  a NRPBFJ  at  a time  basis  whenever  a 
block  in  File  I becomes  full.  Since  subroutine  STOREC  can  store  OBS/REP 
data  records  only  in  File  I,  File  I must  be  large  enough  to  carry  all 
OBS/REP  data  records  having  observation  times  durinq  the  past  several 
minutes  or  hours  plus  an  additional  NRPBFJ  OBS/REP  data  records.  OBS/REP 
data  records  received  by  subroutine  STOREC  which  have  observation  times 
older  than  the  most  recent  OBS/REP  in  File  J will  not  be  stored  in  File 
I and  thus  not  included  in  the  OBS/REP  data  base.  From  the  above,  it 
can  be  seen  that  one  of  the  functions  of  File  I is  to  serve  as  a buffer 
between  the  random  arrival  of  OBS/REP's  for  random,  observation  times 
and  File  J which  contains  OBS/REP's  sorted  by  observation  time. 

For  each  OBS/REP  data  record  stored  in  File  I,  four  words  are 
maintained  in  a two-dimensional  core  array  called  ITABLE.  The  first 
dimension  of  ITABLE  must  be  four,  and  the  second  must  be  greater  than  or 
equal  to  NINTAB.  The  four-word  ITABLE  entries  contain  the  following  for 
an  OBS/REPi 

1)  observation  time  in  minutes  (0-1439), 

2)  relative  X coordinate  in  hectometers, 

3)  relative  Y coordinate  in  hectometers, 

4)  pointer  to  block  and  record  number  in  File  I. 

Four-word  entries  in  ITABLE  are  always  maintained  in  sorted  order  in 
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terms  of  observation  time  with  the  OBS/REP  having  the  most  recent  observa- 
tion time  represented  by  the  four  words  in  the  first  column  of  ITABLE. 

The  contents  of  ITABLE  are  updated  each  time  a new  OBS/REP  is  stored  via 
subroutine  STOREC.  MINI  represents  the  number  of  four-word  entries  in 
ITABLE  and  thus  the  number  of  OBS/REP  data  records  in  File  I.  NINTAB  and 
the  second  dimension  of  ITABLE  are  limited  by  the  amount  of  core  which 
can  be  used  for  ITABLE.  This  also  limits  the  number  of  OBS/REP  data 
records  which  can  be  maintained  in  File  I.  ITABLE  permits  the  user  to 
scan  time  and  location  of  OBS/REP' s before  doing  data  transfers  to  retrieve 
them.  Thus,  efficiency  is  gained  by  making  ITABLE  as  large  as  possible. 

Blocks  in  File  I contain  NRPBFI  OBS/REP  data  records  per  block, 
and  hence  contain  NRPBFI  * NWDREC  = NWDBKI  words  per  block.  NRPBFI 
must  not  exceed  99.  All  blocks  transferred  to  and  from  File  I are 
through  core  buffer  IBUF  which  must  be  dimensioned  equal  to  or  greater 
than  NWDBKI.  Blocks  in  File  I contain  recent  OBS/REP  data  records  for 
a specific  sub-area  of  the  grid  called  a sector.  Within  blocks,  OBS/REP 
data  records  are  sorted  by  observation  time.  This  method  of  storage 
permits  the  user  to  retrieve  all  of  the  recent  OBS/REP  data  records  for 
a local  geographic  area  in  one  mass  storage-to-core  transfer  into  IBUF. 
Consequently,  efficiency  is  gained  by  making  IBUF  and  NRPBFI  as  large 
as  possible. 

Establishment  of  sector  boundaries  is  performed  by  subroutine 
SECTOR.  In  subroutine  BEGIN,  the  size  of  the  grid  is  defined  by  NROWS, 
NCOLS,  and  the  number  of  hectometers  per  grid  unit  UTMPGD.  Variable  EDGE 
defines  the  minimum  distance  from  outside  grid  points  to  the  outer  border 
of  the  outside  sectors  in  hectometers.  OBS/REP  data  records  received 
from  within  this  area  are  to  be  saved  while  those  outside  are  to  be 
discarded.  Subroutine  SECTOR  uses  the  above  information  to  divide  the 
total  area  for  which  data  is  to  be  saved  into  square  sectors.  The  maxi- 
mum sector  size  is  limited  by  the  variable  MAXGPS  which  specifies  the 
maximum  number  of  grid  points  per  sector.  Through  MAXGPS,  the  user 
should  select  a sector  size  that  is  as  large  as  possible.  Blocks  in 
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File  I can  contain  a maximum  of  NRPBFI  OBS/REP's  for  their  corresponding 
map  sector.  Whenever  a block  in  File  I contains  NRPBFI  OBS/REP's,  or 
whenever  File  I contains  NINTAB  OBS/REP’s,  the  oldest  NRPBFJ  OBS/REP’s 
are  removed  from  File  I to  form  a block  in  File  J,  and  NINI  is  decremented 
by  NRPBFJ.  The  above  process  is  repeated  until  space  becomes  available  in 
the  File  I block  that  was  full.  Large  sector  sizes  have  the  advantage 
of  reducing  the  number  of  mass  storage-to-core  transfers  required  w*ien 
retrieving  data. 

The  upper  limit  on  MAXGPS  is  determined  by  the  following* 

1)  The  number  of  OBS/REP  data  records  per  block  in  File 
I (NRPBFI). 

2)  The  rate  of  data  observations  in  the  data-rich  areas. 

3)  The  time  interval  for  which  File  I is  to  maintain  recent 
OBS/REP  data  records  before  transferring  them  to  File  J. 

As  an  example*  let  us  assume  that  each  OBS/REP  contains  44 
words  (NWDREC  = 44)  and  that  due  to  core  limitations,  the  dimension  of 
IBUF  is  3750  words.  The  number  of  OBS/REP's  per  block  in  File  I is  thus 
determined  (NRPBFI  = 85).  Let  us  also  assume  that  we  wish  to  maintain 
all  OBS/REP's  that  were  observed  during  the  past  hour  in  File  I to 
facilitate  rapid  retrieval  by  time  and  location.  Also  assume  that  in 
the  data-rich  areas,  OBS/REP's  are  generated  at  the  rate  of  five  per 
hour  for  a surface  area  the  size  of  one  grid  square.  The  maximum  sector 
size  is  thus  85/5  = 17  grid  squares.  MAXGPS  = 17  provides  subroutine 
SECTOR  an  upper  limit  for  sector  size. 

3.4  SUBPROGRAM  ELEMENT  BLKIN 

3.5  SUBPROGRAM  ELEMENT  BLKOUT 

3.6  SUBPROGRAM  ELEMENT  CASES 

CASES  is  a subprogram  with  six  entry  points  which  was  taken 
directly  from  the  AFGWC  3D-NEPH  model.  The  six  elements  constituting 
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CASES  are  used  to  calculate  the  amount  of  cloud  cover  in  two  or  three 
layers  given  the  probabilities  of  clouds  in  the  layers  and  the  total 
cloud  cover.  Also  taken  into  account  when  given  is  the  low  cloud  amount 
and  the  presence  of  towering  cumulus  or  cumulonimbus  clouds. 


The  six  entry  points  and  the  calculations  performed  by  each 
are  as  follows: 


CASEl 

CASE2 

CASES 


CASE4 


CASES 


CASE6 


Calculates  three  layers  of  cloud  cover  given  total 
cloud  cover,  assuming  layers  are  completely  random. 
Calculates  two  layers  of  cloud  cover  given  total  cloud 
cover,  assuming  layers  are  completely  random. 
Calculates  three  layers  of  cloud  cover  given  lowest 
cloud  cover  and  total  cloud  cover,  assuming  a tower- 
ing cumulus  in  layers  1 and  2 and  random  cloud  cover 
in  layers  2 and  3. 

Calculates  three  layers  of  cloud  cover  given  lowest 
cloud  cover  and  total  cloud  cover,  assuming  a cumulo- 
nimbus in  layers  1,  2 and  3 and  random  cloud  cover  in 
layers  2 and  3. 

Calculates  three  layers  of  cloud  cover  given  lowest 
cloud  cover  and  total  cloud  cover,  assuming  layers 
2 and  3 are  completely  random. 

Calculates  two  layers  of  cloud  cover  given  lowest 
cloud  cover  and  total  cloud  cover. 


3.7  SUBROUTINE  CFEXEC 


3.8  SUBPROGRAM  ELEMENT  CFLAY 


3.9  MAIN  PROGRAM  ELEMENT  CFMAIN 

CFMAIN  is  a main  program  that  was  used  to  drive  the  CFAS  in 
the  final  stages  of  debugging  and  checkout.  Since  the  CFAS  is  normally 
driven  by  the  EPAMS,  CFMAIN  is  not  used  and  is,  therefore,  not  a part  of 
the  CFAS.  A listing  of  CFMAIN  is  given  in  Appendix  I. 
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3.10  SUBPROGRAM  ELEMENT  CFMAP 

SUBROUTINE  CFMAP  employs  a time  and  distance  exponentially 
weighted  average  value  of  observations  lying  within  specified  distances 
(i.e.y  cut-off  distances  or  search  square  sizes)  of  a grid  point  for 
analyzing  the  CFDB  parameters  at  the  grid  point.  A further  weighting  of 
a particular  observations  influence  on  the  grid  point  value  is  the 
0BS/REP*s  value  which  is  incorporated  multiplicatively  with  the  expo- 
nential factor.  This  analysis  concept  is  an  adaptation  of  the  techniques 
described  by  Mount,  et  al.  Ref.  2j  Barnes,  Ref.  3;  and  Davis,  Ref.  3. 

The  weighting  technique  employed  herein  gives  recognition  to 
differences  in  time  and  distance  scales  of  the  various  meteorological 
conditions  which  may  be  encountered.  One  of  these  time  and  distance 
constants  is  selected  in  the  weighting  of  each  OBS/REP.  The  constants 
selected  are  dependent  upon  the  probable  presence  of  local  cellular 
convective  activity  in  combination  with  or  in  the  absence  of  synoptic 
scale  stratiform  cloud  systems.  For  identified  convective  clouds  in 
the  absence  of  both  high  and  middle  level  stratiform  clouds,  the  first 
time  and  distance  constants  are  selected.  For  identified  convective 
clouds  and  either  but  not  both  middle  or  high  level  clouds  or  identified 
showery  type  precipitation,  the  second  set  of  time  and  distance  para- 
meters are  used.  In  all  other  cases  the  third  set  of  time  and  distance 
constants  are  used.  The  actual  inspection  of  the  OBS/^EP  wherein  the 
applicable  constants  are  determined  is  made  in  SUBROUTINE  RETOBR. 

The  values  of  these  constants  as  well  as  the  number  and  values 
of  cut-off  distances  or  search  squares,  and  the  minimum  number  of  obser- 
vations required  to  analyze  the  CFDB  parameters  are  system  parameters 
whose  values  can  be  reasonably  finalized  only  after  an  indepth  evaluation 
of  the  CFAS.  Consequently,  they  have  been  incorporated  as  variables  to 
be  supplied  by  the  user  in  this  version  of  the  CFAS. 


26  - 


3,11  SUBPROGRAM  ELEMENT  COMOBR 


The  purpose  of  SUBROUTINE  COMOBR  is  to  form  the  best  reports 
file  from  the  list  of  time-qualified  OBS/REP  retrieved  from  the  mass 
storage  files  by  RETOBR.  A best  report  is  formed  at  the  site  of  each  of 
the  time-qualified  OBS/REP.  Our  definition  or  conception  of  a best  report 
is  a synthesized  report  in  which  the  values  for  each  of  the  CFDB  para- 
meters is  a most  probable  value.  The  most  probable  value  is  the  one 
selected  from  a list  of  values  of  that  parameter  obtained  from  a group 
of  OBS/REP  lying  within  given  distance  of  the  best  report  site.  The 
details  of  the  process  by  which  the  most  probable  value  is  selected  are 
shown  in  the  flow  diagram. 

A critically  important  parameter  in  the  selection  process  is 
the  maximum  distance,  i.e,,  DSP,  from  the  best  report  site  that  within 
which  candidate  OBS/REP  must  lie.  This  value  must  be  such  that  each  of 
the  candidates  can,  with  reasonable  assurance,  be  assumed  to  have  been 
witness  to  the  same  meteorological  situation.  Time  is  also  important 
in  this  regard,  and  its  impact  is  accounted  for  in  the  fact  that  the  list 
of  candidate  OBS/REP  are  time  qualified.  Second  order  time  differences 
are  also  accounted  for  directly  in  the  most  probable  value  selection 
process. 


Our  ultimate  intent  in  the  incorporation  into  CFAS  of  the 
techniques  embodied  in  COMOBR  was  1)  to  have  a logical  means  for  select- 
ing a correct  value  for  a parameter  when  there  existed  conflicting  infor- 
mation in  a group  of  proximate  OBS/REP,  and  2)  combine  complementary 
information  in  the  group  of  proximate  OBS/REP. 

3.12  SUBPROGRAM  ELEMENT  DEPCLD 

SUBROUTINE  DEPCLD  was  adapted  from  the  AFGVC-SD  NEPH  model. 

It  is  used  to  convert  dew  point  depression,  temperature  and  pressure  into 
percent  cloud  cover.  The  temperature,  pressure  and  dew  point  spread  are 
used  to  compute  condensation  pressure  spread  (CPS)  values,  CPS  is 
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defined  as  the  pressure  change  required  for  an  air  parcel  to  attain 
saturation.  Uncorrected  CPS  values  (Cu)  are  computed  first  according  to 
Hq.  I9  Refs.  1 end 

Cu  = (T  - [-4.9  - 0.93(Pj^/l000)  - 9.  (Pl/IOOO)^]  (l) 

where  (T  - = Temperature-dew  point  spread  at  the  midpoint  of  a 

layer. 

= Pressure  at  the  midpoint  of  the  layer. 

Next,  a multiplicative  correction  factor,  K , based  on  temperature  at 
the  midpoint  of  the  layer,  is  calculated  and  applied  to  Cu  to  obtain  the 
correct  CPS.  Finally,  Eq.  2 is  used  to  compute  an  integer,  INDEX^  which 
provides  the  entry  point  into  a CPS-cloud  amount  conversion  table. 

INDEX  = 0.5  K Cu  + 1.5.  (2) 

The  CPS-cloud  amount  conversion  tables  are  a set  of  empirical  tables 
which  were  derived  by  Edson,  Ref.  5.  The  tables  are  for  850  mb.,  700  mb., 
500  mb.,  and  300  mb.  In  order  to  obtain  cloud  amounts  for  each  CFDB  layer, 
values  are  taken  from  two  of  the  above  tables  and  the  layered  amount  is 
obtained  by  interpolation.  For  midpoint  pressure  values  greater  than 
850  mb.,  values  from  the  850  mb.  table  are  used. 

3.13  SUBPROGRAM  ELEMENT  FOG 

SUBROUTINE  FOG,  which  was  adapted  from  the  AFGWC-3D  NEPH  model, 
calculates  sky  cover  due  to  fog  from  horizontal  visibility  and  the  type 
of  fog  as  reported  in  the  surface  weather.  The  determinations  of  cloud 
cover  amounts  due  to  the  various  types  of  fog  and  the  determinations  of 
the  height  of  the  top  of  the  fog  layer  utilize  considerable  empiricism. 

3.14  SUBPROGRAM  ELEMENT  GETOBl 

3.15  SUBPROGRAM  ELEMENT  GETIBW 
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3.16  SUBPROGRAM  ELEMENT  GETIFW 

3.17  SUBPROGRAM  ELEMENT  ITMDIF 

3.18  SUBPROaiAM  ELEMENT  ITOJ 

3.19  SUBPROGRAM  ELEMENT  LAYCLD 

SUBROUTINE  LAYCLD  constructs  cloud  layers  from  layered  cloud 
data  in  AIRWAYS,  METAR  and  the  optional  eight -group  of  SYNOP  messages. 
LAYCLD  will  utilize  assumed  values  for  high,  middle  and  low  cloud  base 
heights  when  the  reported  base  heights  are  missing  or  are  found  to  be 
inconsistent  with  other  data  in  the  OBS/REP.  Other  features  incorporated 
in  LAYCLD  include! 

1)  a consistency  check  between  the  reported  base  height  of  a 
cloud  layer  and  the  reported  genus  of  the  cloud, 

2)  a determination  of  the  KIND  (i.e.,  high,  middle  or  low) 

of  cloud  layer  from  the  genus  of  the  cloud  as  well  as  base 
height  of  the  layer,  and 

3)  a determination  of  the  value  of  the  OBS/^EP  based  upon  its 
completeness  and  internal  consistency. 

3.20  SUBPROGRAM  ELEMENT  MVLCOV 

3.21  SUBPRO®AM  ELEMENT  NOSECT 

3.22  SUBPROCBAM  ELEMENT  RAOB 

SUBROUTINE  RAOB,  adapted  from  the  AFGWC-3D  NEPH  model,  analyzes 
temperature  pressure  and  dew  depression  profiles  from  upper  air  soundings. 
Heights  are  computed  for  the  significant  levels  in  the  report  using  the 
hydrostatic  equation.  Dew  point  depressions  are  calculated  at  each  level 
where  the  reported  value  is  missing  according  to  Eq.  3. 

T - Tj  = .285  (T  - 273.)  + 20.6,  (3) 
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where  T = temperature  in  °K, 

T(j  = dew  point  temperature  in  °K. 

Pressure,  temperature  and  dew  point  depression  values  are  then  calculated 
at  the  midpoints  of  each  of  the  CFDB  layers  by  linearly  interpolating 
between  adjacent  radiosonde  levels.  A value  determination  of  the  CBS/tlEP 
based  upon  the  fraction  of  temperatures  and  dew  point  depressions,  which 
are  reported  as  missing,  is  made  in  this  routine.  This  value  determina- 
tion is  then  combined  in  SUBROUTINE  UADINT  with  one  based  upon  the  number 
of  CFDB  layers  for  which  cloud  cover  information  could  be  inferred  to 
arrive  at  the  final  OBS/REP  value. 

3.23  SUBPROGRAM  ELEMENT  RETOBR 

This  routine  is  used  to  retrieve  interpreted  OBS/REP  from  the 
file  and  inspect  them  to  determine  which  time  and  distance  constant  in 
SUBROUTINE  CFMAP  is  applicable  to  them  and  then  tag  them  accordingly. 

The  OBS/REP  are  retrieved  in  reverse  chronological  order  starting  with 
the  one  made  closest  to  map  time  (i.e.,  TIME)  and  going  backwards  until 
the  last  one  made  prior  to  TYMOLD  or  the  last  one  on  the  file  is  reached. 

3.24  SUBPROGRAM  ELEMENT  SECTOR 

3.25  SUBPROGRAM  ELEMENT  SFDINT 

SUBROUTINE  SFDINT,  adapted  from  the  AFGWC-3D  NEPH  model,  directs 
the  interpretation  of  AIRWAYS,  METAR  and  SYNOP  type  OBS/REP. 

The  most  significant  features  of  SFDINT  include  the  followings 

1)  Layered  cloud  data  when  reported  in  a SYNOP  type  OBS/^EP 
override  the  information  in  the  low,  middle  and  high  cloud 
data  group. 

2)  Multiple  present  weather  reports  are  accommodated,  and  the 
most  significant  weather  element  deduced  and  included  as  a 
CFDB  parameter. 


; ] 

: I 

• ‘ 3)  SUBROUTINES  FOG,  LAYCLD  and  SYNOP  are  called  by  SFDINT  to 

construct  cloud  layers  from  fog,  layered  cloud  and  low, 
middle  and  high  cloud  data  respectively.  The  information 
I contained  in  each  of  these  constructed  cloud  layers  consists 

i'  of  the  KIND  of  cloud  layer  (low,  middle,  high,  fog,  lowest 

or  clear),  the  base  and  top  of  the  layer  and  the  percentage 
I sky  cover  in  the  layer.  These  constructed  cloud  layers  are 

then  used  to  determine  the  percentage  cloud  cover  in  each 
of  the  CFDB  layers,  the  minimum  base  and  maximum  top  of  the 
' clouds. 

' 4)  Final  and  default  OBS/REP  value  determinations  are  made 

herein. 


3.26  SUBPROGRAM  ELEMENT  STOREC 

3.27  SUBPROGRAM  ELEMENT  SYNOP 

This  routine,  adapted  from  the  AFGW3-3D  NEPH  model,  analyzes 
the  mandatory  low,  middle  and  high  cloud  information  in  SYNOP  type  OBS/REP. 
These  data  contain  a limited  amount  of  information  from  which  layered 
cloud  amounts  can  be  determined.  The  only  sources  of  layered  data  are 
the  amount  of  all  low  (or  middle)  clouds  present  and  the  height  above 
ground  of  the  lowest  cloud  seen.  If  low,  middle  and  high  clouds  are 
observed,  the  elements  of  the  OBS/REP  do  not  contain  sufficient  informa- 
tion to  accurately  define  each  cloud  layer.  Only  the  presence,  absence 
or  5056  probability  of  clouds  in  each  height  category  can  be  determined 
from  the  data.  In  view  of  this,  only  an  estimate  of  the  most  probable 
values  of  cloud  cover,  base  and  top  of  up  to  three  cloud  layers  can  be 
inferred  from  the  data  in  a SYNOP  OBS/REP. 

The  estimates  of  the  base  of  the  cloud  layer  and  percent  of 
coverage  in  the  layer  are  made  from  the  total  sky  cover,  cloud  type,  low 
cloud  cover,  base  of  low  or  middle  clouds  and  present  weather  using  a 
complex  decision  tree  embodied  in  SUBROUTINE  SYNOP.  In  the  course  of 
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the  decision  process,  probabilities  of  clouds  within  a height  category 
are  assigned  as  followsi 

if  cloud  type  =0,  0%  probability; 

if  cloud  type  ^ 0,  1009^  probability; 
if  cloud  type  = missing,  50%  probability. 

In  addition,  if  towering  cumulus  or  cumulonimbus  clouds  are  reported,  this 
fact  is  noted.  Having  determined  the  probabilities  of  clouds  within  the 
height  categories  and  given  total  sky  cover  and  low  cloud  cover,  towering 
cumulus  or  cumulonimbus  when  specified,  SUBHIOGRAM  CASES  employed  to 
estimated  coverage  in  layers  assuming  random  distribution  of  the  cloud 
elements  within  each  layer. 

The  bases  of  the  clouds  within  each  of  the  three  categories  are 
computed  in  the  following  manner: 

= 2200  - 300  X KWEA,  (4) 

base  of  low  clouds  (feet,  AGL), 

a weather  factor  determined  from  present  weather  as  per 
Table  3-1, 

10300, 

base  of  middle  clouds  (feet,  AGL),  (5) 

35000  - 13000  (l/90), 

base  of  high  clouds  (feet,  AGL),  (6) 

latitude  (degrees). 

As  is  done  in  the  case  of  layered  cloud  data  interpretation  in 
SUBROUTINE  LAYCLD,  whenever  a cloud  layer  is  determined  to  be  overcast, 
cloud  amounts  for  the  remaining  layers  above  are  set  equal  to  missing. 
Also,  the  cloud  amounts  for  all  layers  from  the  surface  up  to  and  includ- 
ing the  overcast  layer  are  assigned  values  of  zero.  This  procedure  is 
necessary  to  insure  that  if  these  layers  are  not  affected  by  subsequent 
decisions,  they  will  reflect  clear  conditions. 


where  Bl  = 
KWEA  = 

®M  = 
where  = 

Bh  = 
where  Bj^  = 
L = 
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TABLE  3-1 

CONVERSION  FROM  PRESENT  WEATHER  TO  WEATHER  FACTOR 


Tvoe  of  Weather 

WW  (WMO  C(X»E 
4677  or  4678) 

0-9 

Mist 

10 

11  - 14 

Precip  in  sight 

15 

Precip  in  sight 

16 

Thunder 

17 

Squalls 

18 

Funnel  clouds 

19 

Drizzle,  past  hour 

20 

Rain,  past  hour 

21 

Snow,  past  hour 

22 

Rain/snow,  past  hour 

23 

Freezing  dirzzle/rain,  past  hour 

24 

Rain  showers,  past  hour 

25 

Snow  showers,  past  hour 

26 

Showers  (hail/rain/snow) , past  hour 

27 

Ice  fog,  past  hour 

28 

Thunderstorm,  past  hour 

29 

30  - 49 

Drizzle 

50-59 

Rain 

60  - 69 

Snow 

70  - 79 

Showers 

80  - 89 

Thunder  showers 

90  - 99 

h-^:Vii2rsi^ 


3.28  SUBPROGRAM  ELEMENT  TOPS 

This  routine,  adapted  from  the  AFGWC-3D  NEPH  model,  determines 
the  tops  of  cloud  layers  whose  constructions  were  begun  in  LAYCLD,  FOG 
or  SYNOP.  Cloud  thicknesses  are  first  derived  from  the  height  of  the 
base  of  the  cloud  layer,  cloud  amount  in  the  base  layer  and  the  present 
weather  factor  KWEA  described  in  Section  3.27  on  SUBROUTINE  SYNOP.  Cloud 
tops  are  then  obtained  from  the  cloud  thicknesses  and  the  heights  of  the 
bases  of  the  cloud  layers  according  to  Eq.  7, 

T^  = B^  + D^(Kp)  + 4 F^^*  iD^(Kp  4 l)  4 4 l)],  (7) 


where 


Tl  = height  of  top  of  cloud  layer  above  terrain; 

B-j-  = height  of  base  of  cloud  layer  above  terrain; 

I>r(Kp)  = cloud  thickness,  a function  of  cloud-weather  index; 

Kp  = cloud-weather  index,  a function  of  cloud  amount  and 
weather  factor; 

Sp(Kp)  = cloud  thickness  coefficient,  a function  of  cloud-weather 
index; 

®SL  " height  of  base  of  cloud  layer  above  mean  sea  level; 

Fq  = cloud  amount  {%)  in  base  layer. 

The  relationship  between  Kp,  D-j-(Kp)  and  Sp(Kp)  is  given  in  Table  3-2. 

Cloud  tops  are  also  computed  exclusively  from  the  weather 
factors  (KWEA).  If  KWEA  = 1,  cloud  tops  are  assigned  to  a value  of 
9,000  feet.  If  KWEA  = 2,  cloud  tops  are  assigned  to  a value  of  14,000 
feet.  If  KWEA  = 3,  cloud  tops  are  computed  according  to  Eq.  8, 


T^  = 40000  - 10000  * (latitude/90) 


(8) 


where 


T,,  = maximum  height  of  cloud  tops  (MSL). 
M 
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Finally*  the  maximum  value  of  the  two  computed  cloud  tops  is  assigned  as 
the  value  for  the  top  of  the  cloud  layer. 


TABLE  3-2 

RELATIONSHIP  BETWEEN  Kp,  DpCKp)  AND  St(Kf) 


Kf 

Dp 

Sp 

1 

0 

0 

2 

1287 

0.13108 

3 

2843 

0.25523 

4 

4323 

0.41947 

5 

5864 

0.62827 

6 

7636 

0.87444 

7 

SUBPROOIAM  ELEMENT  UADINT 

9843 

1.11910 

SUBROUTINE  UADINT  directs  the  analysis  and  interpretation  of 
upper  air  soundings  of  pressure*  temperature  and  dew  point  depression. 
Before  calling  SUBROUTINE  RAOB*  which  analyzes  the  sounding*  UADINT 
insures  that  the  sounding  is  in  the  form  that  RAOB  requires.  After 
calling  SUBROUTINE  DEPCLD*  which  calculates  the  cloud  cover  in  the  CFDB 
layers  from  the  analyzed  sounding*  the  final  value  of  the  OBS/REP  is 
determined  in  UADINT  on  the  basis  of  the  number  of  CFDB  layers  for  which 
cloud  cover  or  the  absence  thereof  could  be  determined. 

3.30  SUBPROGRAM  ELEMENT  UTM 

SUBROUTINE  UTM*  obtained  from  the  ASL-W5MR**  converts  latitude 
and  longitude  to  universal  transverse  mercator  (UTM)  easting  and  northing 
coordinates.  UTM  is  called  by  BAKUTM,  also  obtained  from  ASL-WSMR* 
which  calculates  UTM  coordinates  from  latitude  and  longitude. 


Atmospheric  Science  Laboratory*  White  Sands  Missile  Range. 


SUBROUTINE  AFDINT 


LCOVB(7)  = LCOV(8) 
LCOVBIS)  = LCOV(8) 
LCOVBO)  = MAXO 

(LCOVO),  LCOV(10)I 


Convert  terrain  height  of  3D-NEPH  data  point  to  feet. 


3D-NEPH  data  point  terrain  height  less  than  1 50  feet 
AMSL*. 


3D-NEPH  data  point  terrain  height  greater  than 
1500  feet  AMSL. 


Set  cloud  cover  in  the  seventh  through  ninth  CFDB 
layers  equal  to  the  larger  of  the  3D-NEPH  cloud 
covers  in  the  corresponding  or  next  higher  level. 


3D-NEPH  data  point  terrain  height  greater  than 
1650  feet  AMSL. 

Set  cloud  cover  of  the  seventh  and  eighth  CFDB  layers 
equal  to  cloud  cover  of  the  eighth  3D-NEPH  layer  and 
the  cover  in  the  ninth  CFDB  layer  equal  to  the  larger 
of  the  cloud  covers  in  the  ninth  or  tenth  3D-NEPH 
layer. 


3D-NEPH  data  point  terrain  height  greater  than 
3300  feet  AMSL. 


IJ I IW-IW  .H  IJIII.III 


LC0VB(7)  = LC0V(9) 
LCOVB(8)  = LCOVO) 
LCOVBO)  = LCOV(IO) 


LCOVB(7)  = MAXO 

(LCOVOI,  LCOV(IO)) 
LCOVB{8)  = LCOVB{7) 
LCOVBO)  = LCOVdO) 


0 


LCOVB{7)  = LCOVdO) 
LCOVB{8)  = LCOVdO) 
LCOVBO)  = MAXO 

(LCOVdO),  LCOVdD) 


Set  cloud  covers  in  the  seventh,  eighth  and  ninth  CFDB 
layers  equal  respectively  to  the  cloud  cover  in  the 
ninth,  ninth  and  tenth  3D-NEPH  layers. 


3D-NEPH  data  point  terrain  height  greater  than 
6500  feet  AMSL. 


Set  cloud  cover  in  the  seventh  and  eight  CFDB  layers 
equal  to  the  larger  of  the  cloud  covers  in  the  ninth 
and  tenth  3D-NEPH  layers  and  the  cloud  cover  in  the 
ninth  CFDB  layer  equal  to  the  cloud  cover  in  the 
3D-NEPH  layer. 


Set  cloud  cover  in  the  seventh  and  eight  CFDB  layers 
equal  to  the  cloud  cover  in  the  tenth  3D-NEPH  layer 
and  the  cloud  cover  in  the  ninth  CFDB  layer  equal 
to  the  larger  of  the  cloud  covers  in  the  tenth  and 
eleventh  3D-NEPH  layers. 


RETURN 


AMSL  = Above  mean  sea  level. 


SUBROUTINE  BEGIN 


Begin  initializes  variables  used  by  the  routines  which  store  and  retrieve  OBS/REP's  in  the  OBS/REP  data  base.  t 

NOTE  — Unless  otherwise  noted  — all  distance  measurements,  UTM  units,  and  UTM  coordinates  are  carried  in 
hectometers  where  1 hectometer  equals  100  meters. 

NOTE  — Unless  otherwise  noted  — all  times  will  be  carried  in  minutes  for  a 1440  minute  clock.  ^ 

XREF  and  YREF  must  be  in  kilometers  and  must  be  supplied  by  the  calling  program. 


Before  calling  BEGIN,  the  absolute  coordinates  of  the 
lower  left  hand  corner  of  the  grid  map  must  be  ini- 
tialized. The  variables  are  XREF  and  YREF  and  are 
located  in  COMMON  /MAP/. 


See  comments  in  BEGIN. 


Establish  the  sector  map  corresponding  to  the  blocks 
in  file  I. 


SUBROUTINE  BLKIN  (NWDBLK,  ISTART,  NBKIN,  LSFILE,  ISTAT) 

BLKIN  transfers  to  core  a block  from  a random  access  file  that  contains  blocks  that  are  all  of  the  same  size. 
NWDBLK  = No.  of  words  per  block  in  the  file  and  the  No.  of  words  to  be  transferred  to  core  on  this  call. 
ISTART  = Starting  address  in  core  where  the  block  is  to  be  transferred  to. 

NBKIN  = No.  of  this  block  in  the  file.  NBKIN  = 1 is  the  first  block  No.  in  the  file. 

LSFILE  = Logical  system  file  No.  (0-15). 

ISTAT  = Status  returned  to  user.  ISTAT  = 0 indicates  no  errors.  ISTAT  = 1 indicates  an  error  of  some  kind. 
1108  disk  version 

Restrictions  on  this  version  of  BLKIN 

The  status  ISTAT  returned  to  the  user  will  always  be  zero  since  the  FSTRD  routine  does  not  return  any  status 
information.  FSTRD  has  its  own  error  messages. 


( START  3 


COMPUTER  MASS 
STORAGE  ADDRESS 

CALL 

HANDI 

READ 

DEVICE 
-ER  TO 
BLOCK 

( RETURN  ) 


Return  status  to  calling  program. 


Note  - All  CFAS  mass  storage  to  core  transfers  are  through  subroutine  BLKIN.  To  implement  CFAS  on 
another  computer,  a new  version  of  BLKIN  having  the  above  calling  sequence  will  be  required. 
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SUBROUTINE  BLKOUT  {NWDBLK,  ISTART,  NBKOUT,  LSFILE,  ISTAT) 

BLKOUT  transfers  a block  from  core  to  a random  access  file  which  contains  blocks  that  are  all  of  the  same  size. 
NWDBLK  = No.  of  words  per  block  in  the  file  and  the  No.  of  words  to  be  transferred  from  core  on  this  call. 
ISTART  = Starting  address  in  core  where  the  block  is  to  be  transferred  from. 

NBKOUT  = No.  of  this  block  in  the  file.  NBKOUT  = 1 is  the  first  block  No.  in  the  file. 

LSFILE  = Logical  system  file  No.  (0-15). 

ISTAT  = Status  returned  to  user.  ISTAT  = 0 indicates  no  errors.  ISTAT  = 1 indicates  an  error  of  some  kind. 

11 08  disk  version 

Restrictions  on  this  version  of  BLKOUT 

The  status  ISTAT  returned  to  the  user  will  always  be  zero  since  the  FSTWT  routine  does  not  return  any  status 
information.  FSTWT  has  its  own  error  messages. 


START  J 


COMPUTE  MASS 
STORAGE  ADDRESS 

CALL  I 
HANDI 
WRITE 

DEVICE 

LERTO 

BLOCK 

( RETURN  J 


Return  status  to  calling  program. 


Note  - All  CFAS  core  to  mass  storage  transfers  are  through  subroutine  BLKOUT  To 
another  computer,  a new  version  of  BLKOUT  having  the  above  calling  sequence  will  be  required. 
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SUBROUTINE  CFEXEC  (TASK,  TIME.OBSRPT,  XO,  YO,  XLN,  YLN,  LAST,  TYMOLD,  DSP,  *DIST,TYMC, 

ISSQ,  NSSQ,  NBKOUT,  IDENT) 

This  routine  is  the  interface  between  the  experimental  prototype  automatic  meteorological  system  (EPAMS)  and  the 
cloud-fog  analysis  system  (CFAS).  In  addition  CFEXEC  directs  the  interpretation  of  the  surface  and  upper  air  obser- 
vations and  reports  (OBS/REP)  and  the  ere  *ion  or  updates  of  the  cloud  fog  data  base  (CFDBl. 

Input  data  (formal  parameters) 

TASK  = Task  requested  by  EPAMS 

1 = Set  up  the  OBS/REP  storage  files 

2 = Input  OBS/REP 

3 = Create  a new  CFDB 

4 = Update  the  latest  CFDB  on  file 

TIME  = Reference  time  of  CFDB  creation  or  update 
OBSRPT  = OBS/REP 

XO  = Distance  east  from  XREF  of  the  lower  left  hand  corner  of  the  sub-window  in  the  CFDB  to  be  updated,  km. 

YO  = Distance  north  from  YREF  of  the  lower  left  hand  corner  of  the  sub-window  in  the  CFDB  to  be  updated,  km. 
XLN  = East-west  length  of  updated  sub-window,  km. 

YLN  = North-south  length  of  updated  sub-window,  km. 

LAST  = Sequence  number  of  the  last  OBS/REP  stored. 

TYMOLD  = Time  of  oldest  OBS/REP  to  be  used  in  a creation  or  update. 

DSP  = Maximum  distance  between  OBS/REP  to  be  combined  into  a best  report,  km. 

DIST  = Distance  constants  in  weighting  function,  km. 

DIST(I)  used  when  convective  clouds  only  present. 

DIST(2)  used  when  convective  and  middle  clouds  only  are  present  or  when  showery  type  precipitation  present 
or  past  weather. 

DIST(3)  used  for  all  other  cases. 

TYMC  = Time  constants  in  weighting  function,  minutes. 

TYMC(I)  used  when  convective  clouds  only  present. 

TYMC(2)  used  when  convective  and  middle  clouds  only  are  present  or  when  showery  type  precipitation  present 
or  past  weather. 

TYMC(3)  used  for  all  other  cases. 

ISSQ  = Search  square  sizes,  no.  of  grid  points. 

NSSQ  = No.  of  search  squares  used  in  analysis. 

NBKOUT  = Block  no.  in  the  CFDB  file  to  which  the  creation  or  update  is  to  be  transferred. 

IDENT  = Ten  words  of  user  supplied  identification  information  that  precedes  the  cloud-fog-weather  data  on  the  file. 
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Process  forecast  layered  cloud  coverage  from 
AFGWC  3D-NEPH  model. 


File  interpreted  OBS/REP. 


Assure  that  time  of  oldest  OBS/REP  (TYMOLD)  to 
be  used  in  creation  or  update  is  not  more  than 
12  hours  old. 


Retrieve  OBS/REP  in  reverse  chronological  order 
from  present  time  (TIME)  to  TYMOLD.  Also 
identify  time  and  distance  scale  factors  to  associate 
with  OBS/REP  and  tag  accordingly. 

Test  for  the  presence  of  more  OBS/REP  within  the 
allowed  time  frame  on  the  file.  Jump  to  120  if  there 
are  no  more. 


Retrieve  not  more  than  NOBR  OBS/REP . 


Set  reference  altitude  IHREF  equal  to  the  lowest 
of  the  altitudes  specified  in  the  list  of  OBS/REP 
or  in  the  grid. 


140 


1 


T 


Reference  ceiling,  minimum  base  and  maximum  top 
of  cloud  layer  to  reference  altitude  IHREF. 


Calculate  cloud  cover  in  layers  referenced  to  IHREF 
from  cloud  cover  in  layers  referenced  to  ground  level 
at  OBS/REP  site. 

Form  the  best  reports  file  from  the  list  of  qualified 
OBS/REP. 


Convert  user  specified  sub-window  bounds  and  dimen- 
sions to  indices  of  bounding  grid  points  for  an  update. 
Use  minimum  and  maximum  values  of  indices  for  a 
creation. 


Calculate  CFDB  parameters  at  the  grid  points  lying 
within  the  indices  of  the  bounding  grid  points. 


Reference  ceiling,  minimum  base  and  maximum  top 
of  cloud  layer  to  ground  level  at  each  grid  point. 


Calculate  cloud  cover  in  layers  referenced  to  ground 
level  from  cloud  cover  in  layers  referenced  to  altitude 
IHREF. 


I 

3 


u 
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ASSURE  INTERNAL 
CONSISTENCY  OF 
CFDB  PARAMETERS 
AT  GRID  POINTS 


Assure  that  minimum  base  of  clouds  is  less  than 
maximum  top  of  clouds  and  that  total  sky  cover 
is  equal  to  or  greater  than  the  largest  amount  of 
cloud  cover  in  any  layer. 


r' 


BLKOUT 


Output  the  created  or  updated  CFDB  to  user 
specified  file. 


CFDB 


D 


RETURN 
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SUBROUTINE  CFLAY  (NBASE,  NTOP,  MINLAY,  MAX  LAY) 


Routine  to  find  minimum  and  maximum  CFDB  layers  influenced  by  cloud  layers  constructed  from  OBS/REP. 
returned  if  no  CFDB  layers  are  affected. 


NBASE  = Base  in  feet  above  terrain. 

NTOP  = Top  in  feet  above  terrain. 
MINLAY  = Minimum  layer  above  terrain. 
MAXLAY  = Maximum  layer  above  terrain. 


IBASE  and  ITOP  are  set  equal  respectively  to  NBASE 
and  NTOP  rounded  to  the  nearest  100  feet. 


Return  0 for  MINLAY  and  MAXLAY  if  the  base  of 
the  cloud  layer  is  higher  than  the  top  of  the  highest 
CFDB  layer. 


Return  0 for  MINLAY  and  MAXTOP  if  the  top  of 
the  cloud  layer  is  lower  than  the  base  of  the  lowest 
CFDB  layer. 


MINLAY  is  equal  to  the  index  number  of  the  CFDB 
layer  whose  top  is  higher  and  whose  base  is  lower 
than  IBASE. 


MAXLAY  is  equal  to  the  index  number  of  the  CFDB 
layer  whose  top  is  higher  and  whose  base  is  lower 
than  ITOP. 


- 48  - 


SUBROUTINE  CFMAP  (IBEG,  lEND,  JBEG,  JEND,  DIST,  TYMC,  ISSQ,  NSSQ,  MNBR,  *MTIME,  NOB) 

This  routine  uses  the  best  reports  generated  by  COMOBR  to  determine  the  CFDB  parameters  at  specified  grid 
points  in  the  window. 

Input  data 

IBEG  = I index  of  left  hand  edge  of  window  or  sub-window. 
lEND  = I index  of  right  hand  edge  of  window  or  sub-window. 

JBEG  = J index  of  bottom  edge  of  window  or  sub-window. 

JEND  = J index  of  top  edge  of  window  or  sub-window. 

DIST  = Distance  constants  in  weighting  function,  km. 

TYMC  = Time  constants  in  weighting  function,  minutes. 

ISSQ  = Search  square  sizes,  no.  of  grid  points. 

NSSQ  = Number  of  search  squares. 

MNBR  = Minimum  number  of  best  reports  required  to  calculate  CFDB  parameters  at  a grid  point. 

MTIME  = Map  time  (0  - 1440). 

NQB  = Number  of  QBS/REP. 


Initialize  CFDB  parameter  index. 


Search  the  best  reports  file  and  generate  a pointer 
table  to  the  best  reports  with  a non  missing  entry 
for  the  current  CFDB  parameter. 


Initialize  grid  point  indices. 


Initialize  search  square  index. 


Step  through  the  pointer  table  and  collect  the  best 
reports  which  lie  within  a square  box  of  side  length 
ISSQ  (NSQ),  called  the  search  square. 
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NFD>MNBR 


YES 


Jump  to  90  if  the  minimum  number  of  best  reports 
needed  to  analyze  the  current  CFDB  parameter  at 
the  grid  point  have  been  collected. 


Increment  the  search  square  index. 


Jump  back  to  25  and  use  the  next  larger  search 
square  if  the  largest  one  has  not  been  used. 


Jump  to  90  if  the  number  of  best  reports  collected 
was  at  least  1 . 


Set  the  current  grid  point  value  of  the  current  CFDB 
parameter  equal  to  missing,  i.e.,  MISS  = —32768  if 
no  best  reports  were  collected. 


Calculate  the  weight  factors,  WF,  corresponding  to 
each  of  the  best  reports  collected. 


WF  = VALU»EXP 


Where 


VALU  = value  of  the  best  report 
DIS  = distance  of  best  report  site  from  the  grid 
point 

DC  = distance  constant  applicable  to  best  report 
TD  = time  difference  between  time  of  best 
report  and  map  time 

TC  = time  constant  applicable  to  best  report 


' I'i,  -, 


Increment  tag  count  if  the  best  report  values  for 
ceiling  or  visibility  were  tagged. 


Increment  tag  count  if  the  best  report  value  for 
layered  cloud  cover  was  tagged. 


For  present  weather  only  SMWF  is  the  current  largest 
value  of  WF. 

Set  grid  point  value  for  present  weather  equal  to 
current  best  report  value  of  present  weather  and 
SMWF  to  the  current  value  of  WF. 


Calculate  running  sum  of  weight  factor,  SMWF,  and 
weighted  best  report  value  of  current  CFDB  param- 
eter, SMWFO.  OBS  = current  best  report  value  for 
current  CFDB  parameter. 


J 
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Jump  back  to  C if  there  are  more  collected  best 
reports  for  current  CFDB  parameter. 


Calculate  the  fraction  of  collected  best  reports  which 
were  tagged,  FRAC,  and  the  weighted  average  of  the 
best  reports,  GPV,  for  the  current  CFDB  parameter. 
Note  — These  calculations  are  overridden  in  the  case 
of  present  weather. 


Code  the  integer  weighted  average  of  best  report 
layered  cloud  covers  as  thin  if  a majority  of  these 
best  reports  were  tagged  as  thin. 
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SUBROUTINE  COIVIOBR(NOB,  DSP,  TIME,  LSFILE) 


Ranks,  resolves  conflicting  information,  and  combines  CFDB  elements  of  proximate  OBS/REP'S:  then  insures 
internal  consistency  of  combined  OBS/REP. 

Input  Data 

NOB  = Number  of  time  qualified  OBS/REP 

DSP  = Maximum  distance  between  OBo/REP  to  be  combined  into  a best  report,  km. 

TIME  = Reference  time  or  map  time  of  CFDB  creation  or  update. 

LSFILE  = Logical  device  No.  of  temporary  storage  file  used. 


Initialize  index  of  best  report. 


Scan  the  list  of  time  qualified  OBS/REP  and  collect 
ten  or  less  which  are  within  DSP  km  of  the  best 
report  site. 


Create  a one  dimensional  array  NR  EC,  in  which  the 
collected  proximate  OBS/REP  are  ranked  in  order  of 
increasing  distance  from  the  best  report  site. 


I 


Specials  of  all  types  out  rank  non  specials.  Types 
ranked  as  follows; 

1 AIRWAYS 

2 METAR 

3 SYNOP 

4 RAOB 

5 AFGWC-3DNEPHPROG 


<1 
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Assign  the  location,  station  elevation,  time  sequence 
number  and  type  of  OBS/REP  at  the  best  report  site 
to  the  best  report. 


7T 


Assign  the  CFDB  parameters  of  the  lowest  ranking 
OBS/REP  to  the  best  report. 


Initialize  index  of  CFDB  parameter. 


Initialize  counter  to  index  number  of  second  lowest 
ranking  OBS/REP. 


Jump  to  170  if  the  IRV  value  of  the  current  CFDB 
parameter  is  missing. 


Jump  to  1 50  if  the  current  CFDB  parameter  is  not 
ceiling. 


Jump  to  170  if  the  method  of  measuring  the  ceiling  in 
the  IRV  OBS/REP  is  not  better  than  the  method  used 
in  the  IRV  + 1 OBS/REP.  The  hierarchy  of  ceiling 
measurements  is: 

First  - MEASURED 
Second  — AIRCRAFT 
Third  - BALLOON 
Fourth  — RADAR 
Fifth  - ESTIMATED 
Sixth  - INDEFINITE 

A replacement  is  not  made  if  the  IRV  value  of  the 
current  CFDB  is  missing  and  additionally  in  the 
case  of  ceiling  when  the  method  of  measurement 
is  not  better  than  the  method  used  for  the  value 
last  assigned. 


Decrement  index  of  collected  OBS/REP. 


Jump  back  to  D if  there  are  more  collected  OBS/REP. 


Increment  index  of  CFDB  parameter. 


Jump  back  to  C if  there  are  more  parameters. 


TliK'iJT 


SUBROUTINE  DEPCLD  (PRES.  TEMP,  DEP,  NCLD) 


1 

} 

Routine  to  convert  dewpoint  depression,  temperature,  and  pressure  information  into  percent  cloud  cover. 

CPCLD1  = CPS  to  cloud  conversion  table  at  850  MB. 

CPCLD2  = CPS  to  cloud  conversion  table  at  7(X)  MB. 

CPCLD3  = CPS  to  cloud  conversion  table  at  500  MB. 

CPCLD4  = CPS  to  cloud  conversion  table  at  300  MB. 

PRESTO  = Standard  pressure  levels  for  CPS  to  cloud  conversion. 

NCLO  = Percent  cloud  cover 

DPRCPS  = Conversion  factors  for  dewpoint  depression 
TCOR  = Temperature  correction  for  CPS 
PRES  = Midpoint  pressure  of  CFDB  layer,  millibars 
TEMP  = Midpoint  temperature  of  CFDB  layer,  deg.  K 
DEP  = Midpoint  dewpoint  depression  of  CFDB  layer,  deg.  C 
A,  B,  C = Constants  in  the  expression 

DPRCPS  = A+  B*  (oressure/1000)  + C*  (pressure/1000)  •♦2 

This  expression  converts  dewpoint  depression  to  condensation  pressure  spread  conversion  factors  for  CFDB 
layers. 

CPS  = Condensation  pressure  spread  of  CFDB  layers 


Initialize  CFDB  layer  index. 


Jump  to  10  if  temperature  and  dewpoint  depression 
of  layer  are  not  missing. 


Determine  appropriate  entry  in  CPS  to  cloud  table. 


58 


'INDEX  < 75: 


CODE  NO  CLOUD 
NCLD  (LAY)  =0 


INDEX  too  large,  no  cloud  possible. 


PRES  (LAY) 


> PRESTD  (1) 


Jump  to  170  if  the  midpoint  pressure  of  the  CFDB 
layer  is  equal  or  greater  than  the  pressure  of  the 
lowest  table. 


PRES (LAY) 


i PRESTD  (4) 


Jump  to  1 80  if  the  midpoint  pressure  of  the  CFDB 
layer  is  equal  to  or  less  than  the  pressure  of  the 
highest  table. 


DETERMINE 

LEVHI 


LEVLOW  = 
LEVHI  - 1 


Determine  LEVHI,  the  index  number  of  the  upper 
bound  pressure  level  which  is  defined  as  the  pressure 
level  of  the  lowest  table  whose  associated  pressure  is 
less  than  that  of  the  midpoint  of  the  CFDB  layer. 

Calculate  the  index  number,  LEVLOW,  of  the  lower 
bound  pressure  level. 


DETERMINE 

CLDHI 


Determine  a cloud  cover,  CLDHI,  from  the  upper 
bound  table. 


DETERMINE 

^1  m rwu 


Determine  a cloud  cover,  CLDLOW,  from  the  lower 
bound  table. 
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CALCULATE 
NCLD  (LAY) 
FROM  CLDHI 
AND  CLDLOW 


Linearly  interpolate  with  respect  to  pressure  to 
calculate  the  cloud  cover  at  the  midpoint  pressure  of 
the  CFDB  layer  from  CLDHI  and  CLDLOW. 


CALCULATE 
NCLD (LAY) 
FROM  LOWEST 
TABLE 


Determine  cloud  cover  of  the  CFDB  layer  from  the 
lowest  table. 


Determine  cloud  cover  of  the  CFDB  layer  from  the 
highest  table. 


Round  cloud  cover  of  the  CFDB  layer  to  the  nearest 
5 percent. 


Guard  against  a minus  zero  value  of  cloud  cover 
occurring  in  round  off. 


Increment  CFDB  layer  index. 


Jump  back  to  A for  more  CFDB  layers. 


I 
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SUBROUTINE  FIND1B  (INCODE,  IX,  lY,  RADIUS,  ITMIN,  UMAX,  *IREC,  NOMORE) 

FIND1B  is  used  when  the  user  wishes  to  examine  all  the  OBS/REP's  stored  that  are  within  a specified  radius  of 

specified  coordinates  which  were  observed  during  a specified  time  interval.  Each  call  to  FIND1 B returns  one 

OBS/REP  going  backward  in  time  sequence. 

INCODE  = User  control  code.  INCODE  = 1 initiates  the  sequence  and  searches  for  the  newest  OBS/REP  which 

satisfies  the  location  and  time  requirements.  This  OBS/REP  is  returned  to  the  user  in  user  buffer  IREC. 
INCODE  NOT  = 1 is  used  on  successive  calls  to  retrieve  the  next  OBS/REP  in  backward  time  sequence. 

IX  = Relative  X position  in  hectometers. 

lY  = Relative  Y position  in  hectometers. 

RADIUS  = Radius  in  hectometers  of  circle  to  be  centered  at  (IX,  lY).  All  OBS/REP's  returned  to  user  will  be  in 
this  circle. 

ITMIN  = Minimum,  or  oldest,  observation  time  in  minutes  (0-1439). 

UMAX  = Maximum,  or  newest,  observation  time  in  minutes  (0-1439).  FIND1 B will  return  OBS/REP's  starting  at 
UMAX,  or  older. 

IREC  = Buffer  in  calling  routine  containing  NWDREC  words  where  the  OBS/REP  will  be  stored. 

NOMORE  = Status  returned  to  user.  NOMORE  = 0 indicates  that  an  OBS/REP  was  returned  to  the  user  in  IREC 
and  that  there  may  be  more  OBS/REP's  if  the  user  should  call  again.  NOMORE  = 1 indicates  that  no 
OBS/REP  was  returned  and  that  no  additional  OBS/REP's  exist  in  the  data  base  within  the  specified 
time  and  location  constraints.  The  user  should  assume  that  the  contents  of  IREC  will  be  modified 
whenever  FIND  IB  is  called. 


.1 


Assume  an  OBS/REP  will  be  found. 


Going  backward  in  observation  time  from  UMAX. 

Processing  is  complete  when  either  the  oldest 
OBS/REP  in  file  J is  examined,  or,  the  observation 
time  of  the  OBS/REP  returned  by  GET1BW  is 
older  than  ITMIN. 


If  the  location  of  the  OBS/REP  is  within  the  specified 
radius  of  IX  and  lY,  return  the  OBS/REP  to  the  user 
buffer  IREC. 
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SUBROUTINE  FOG  (NVIS,  NWEA,  AMT,  VALU) 


Routine  to  check  for  fog  and  make  decisions  as  to  percentage  cloud  cover  and  tops  of  clouds  based  on 
horizontal  visibility  and  type  of  fog. 

NVIS  = horizontal  visibility  in  meters 
NWEA  = surface  weather  WMO  code  4677 
Derived  layered  cloud  information 
NUMLAY  = number  of  layers  generated 
KIND  = kind  of  cloud  layer 

1 = low 

2 = middle 

3 = high 

4 = fog 

5 = lowest  cloud 

6 = clear  layer 

ITHIN  = thin  layer  designator 
MISSING  = not  thin 
1 = thin 

COVER  = cloud  cover  in  layer  (0.0  — 1.0) 

BASE  = height  of  the  base  of  layer,  feet 
TOP  = height  of  top  of  cloud  layer,  feet 
AMT  = cloud  cover  due  to  fog 
VALU  = value  of  OBS/REP 


Set  AMT  = 0.  Set  VALU  = 10  if  there  was  no 
layered  cloud  data  present  in  OBS/REP.  If  there 
was  layered  cloud  data  present  then  set 
VALU  = (VALU  + 10.)/2. 

Return  if  visibility  is  greater  than  1600  meters 
(1  mile). 


Initialize  counter  for  surface  weather  array, 
NWEA. 


Jump  to  10  if  surface  weather  does  not  show 
the  presence  of  fog. 

Determine  the  fog  type  from  the  surface  weather 
code. 
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TOP  (NUMLAY) 


NVIS  < 0 


REDUCE  FOG 
RELATED  PART 
OF  VALU  BY  3 


RETURN 


SUBROUTINE  GETOBI  (ITABID,  IREC) 

Get  an  OBS/REP  from  file  I. 

ITABID  = Column  index  of  ITABLE  pointing  to  desired  OBS/REP. 

IREC  = Buffer  in  user  program  where  OBS/REP  will  be  stored. 


Sector  No.  corresponds  to  block  No.  in  file  I. 


I BLOCK  in  COMMON/BASE/  equals  the  No.  of  the 

file  I block  in  core  buffer  IBUF.  | 

i 


Mass  storage  to  core  transfer. 


Record  No.  in  block. 


i ' 
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SUBROUTINE  GET1BW  (INCODE,  NTIME,  IREC,  NOMORE) 

GET1BW  is  used  when  the  user  wishes  to  examine  all  the  OBS/REP's  stored  starting  at  NTIME  and  going  backward 
in  time  sequence. 

INCODE  = User  control  code.  INCODE  = 1 initiates  the  sequence  and  searches  for  the  first  record  which  is 

returned  to  the  user.  INCODE  NOT  = 1 is  used  in  successive  calls  to  retrieve  the  next  OBS/REP  in 
time  sequence. 

NTIME  = Start  time  in  minutes  (0-1439). 

IREC  = Buffer  In  calling  routine  containing  NWDREC  words  where  the  OBS/REP  will  be  stored. 


NOMORE  = Status  returned  to  user.  NOMORE  = 0 indicates  that  an  OBS/REP  was  returned  to  the  user  in  IREC 
and  that  there  may  be  more  OBS/REP's  if  the  user  should  call  again.  NOMORE  = 1 indicates  that  no 
OBS/REP  was  returned  and  that  no  additional  OBS/REP's  exist  in  the  data  base. 


NOMORE  = 0 


Assume  an  OBS/REP  will  be  returned. 


DETERMINE  IF 
NTIME  IS  IN 
FILE  I OR  FILE  J 


If  the  time  sequence  starts  in  file  I,  and  there  are 
additional  calls,  older  data  records  will  be  extracted 
from  file  I and  then  from  file  J. 


BLOCK 
IN  CORE 


Read  proper  block  from  file  I or  file  J only  if  not  in 
core  at  this  time. 


CALLBLKINTO 
READ  BLOCK 


OBS/REP'S 
TO  BE 

.JIETURNED  . 


The  OBS/REP  returned  on  the  previous  call  was  the 
oldest  OBS/REP  in  the  data  base. 


TRANSFER  NEXT 
OLDEST  OBS/REP 
TO  USER 


Transfer  to  buffer  starting  at  IREC. 
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SUBROUTINE  GET1FW  (INCODE,  NTIME,  IREC,  NOMORE) 


GET1 FW  is  used  when  the  user  wishes  to  examine  all  the  OBS/REP's  stored  starting  at  NTIME  and  going  forward 
in  time  sequence. 


INCODE  = User  control  code.  INCODE  = 1 initiates  the  sequence  and  searches  for  the  first  record  which  is 

returned  to  the  user.  INCODE  NOT  = 1 is  used  on  successive  calls  to  retrieve  the  next  OBS/REP  in 
time  sequence. 


NTIME  = Start  time  in  minutes  (0-1439). 

IREC  = Buffer  in  calling  routine  containing  NWDREC  words  where  the  OBS/REP  will  be  stored. 


NOMORE  = Status  returned  to  user.  NOMORE  = 0 indicates  that  an  OBS/REP  was  returned  to  the  user  in  IREC 
and  that  there  may  be  more  OBS/REP's  if  the  user  should  call  again.  NOMORE  = 1 indicates  that  no 
OBS/REP  was  returned  and  that  no  additional  OBS/REP's  exist  in  the  data  base. 


Assume  an  OBS/REP  will  be  returned. 


If  the  time  sequence  starts  in  file  J,  and  there  are 
additional  calls,  newer  data  records  will  be  extracted 
from  file  J and  then  from  file  I. 


Read  proper  block  from  file  J or  file  I only  if  not  in 
core  at  this  time. 


The  OBS/REP  returned  on  the  previous  call  was  the 
most  recent  OBS/REP  in  the  data  base. 


Transfer  to  buffer  starting  at  IREC. 
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FUNCTION  ITMDIF  (ITA,  ITB) 


Computes  difference  between  times  ITA  and  ITB.  Result  is  positive  if  ITA  is  more  recent  than  ITB.  It  is  assumed 
that  all  time  differences  will  be  less  than  or  equal  to  720  minutes. 

ITA  and  ITB  are  time  values  in  minutes  (0-1439). 


Take  difference. 


ITA  must  be  older  than  ITB. 


ITA  must  be  more  recent  than  ITB. 


RETURN 


SUBROUTINE  ITOJ 

Delete  the  oldest  (NRPBFJ)  records  from  file  I and  store  them  as  a block  in  file  J. 


Mass  storage  to  core  transfer. 


Blocks  in  file  J contain  OBS/REP's  sorted  in  terms  of 
observation  time. 


NRPBFJ  = the  number  of  data  records  per  block  in 
file  J and  is  defined  in  subroutine  BEGIN. 


Core  to  mass  storage  transfer. 


The  NRPBFJ  oldest  4 word  entries  in  ITABLE  no 
longer  used. 
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SUBROUTINE  LAYCLD  (DLAT,  VALU) 

Routine  to  construct  cloud  layers  from  layered  cloud  data  in  AIRWAYS,  METAR,  and  SYNOP  type 
OBS/REP. 

List  of  Arguments 

Input 

DLAT  = Latitude  of  OBS/REP,  degrees  (negative  if  south) 

Output 

VALU  = Information  VALU  of  OBS/REP 
Common  Data 
In 

NS(J)  = Sky  cover  due  to  cloud  in  layer,  0-9.  1 to  10  layers. 

ICTS  = Type  of  cloud  in  layer,  0-9  WMO  code  0500 
IHS(J)  = Height  of  base  of  cloud  layer 
AIRWAYS  - 100's  of  feet 
METAR  - WMO  code  1677 
SYNOP  - WMO  code  1677 
ITHIN(J)  = Cloud  layer  thickness  indicator 

1 if  thin 

Missing  if  not  thin 
ITYPE  = Type  of  OBS/REP 

1=  AIRWAYS  -1  if  a special 

2 = METAR  -2  if  a SPECI  (special) 

3 = SYNOP 


OUT 

NUMLAY  = Number  of  cloud  layers  identified 
KIND  = Kind  of  cloud  layer 

1 = Low 

2 = Middle 

3 = High 

4 = Fog 

5 = Lowest  cloud 

6 = Clear  layer 

ITHIN  = Thin  layer  designator 
MISSING  = Not  thin 
1 = Thin 

COVER  = Fraction  of  sky  covered  by  clouds  in  the  layer  (0.0  - 1.0) 
BASE  = Height  of  the  base  of  cloud  layer,  feet. 

TOP  = Height  of  the  top  of  the  cloud  layer,  feet. 


COVER  IN 
RANGE  0-9 


OBSCURING 
^ LAYER  ^ 


HEIGHT 


^IVEN 


RETURN 


£na 


VALU  of  OBS/REP  is  diminished  because  an  out 
of  range  cloud  cover  is  assumed  to  be  a result  of  a 
communications  or  coding  error  of  a valid  observa- 
tion of  the  presence  or  absence  of  a cloud  layer. 


DIMINISH  VALUE  OF 
OBS/REP  BECAUSE  OF 
PROBABLE  ERROR 


CONSTRUCT  A TOTAL 
OVERCAST  LAYER 


DIMINISH  VALU 


Test  for  AIRWAYS  type  OBS/REP 


SET  BASE  OF  OVERCAST  LAYER  EQUAL  TO 
THE  SMALLER  OF  THE  CALCULATED  VALUE 
OR  THE  ASSUMED  HIGH  CLOUD  BASE  HEIGHT 


190 


If  the  calculated  value  was  larger  IHS(LSC)  was 
probably  incorrect. 


Code  layer  middle. 


Test  for  overcast  present  layer,  if  not,  test 
for  more  layered  cloud  data. 


SUBROUTINE  MVLCOV  (LCOVA,  LCOVB,  IHA,  IHB) 

This  routine  calculates  the  cloud  cover  in  the  CFDB  layers  of  a station  'A',  LCOVA(I),  at  an  elevation  of  IHA 
(meters)  that  would  exist  if  the  layered  cloud  coverage  at  a station  'B',  LCOVBd),  of  elevation  IHB  (meters)  were 
moved  to  'A'  with  the  CFDB  layers  of  'B'  retaining  their  reference  level,  IHB. 

Input  data 

LCOVB(I)  = Cloud  cover  in  the  CFDB  layers  of  station  'B' 

IHB  = Height  above  mean  sea  level  of  station  'B'. 

IHA  = Height  above  mean  sea  level  of  station  'A'. 


Output  data 

LCOVA(I)  = Cloud  cover  in  the  CFDB  layers  of  station  'A'.  ^ 


CFDB  layers  are  in  multiples  of  feet. 


Process  9 ]ayers. 


—32768  indicates  that  no  data  exists. 


, i 
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I 
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FUNCTION  NOSECT  (IX,  lY) 

Computes  sector  No.  (1-NSECTR)  from  UTM  coordinates  (lY,  IX). 

I 

I 


IX  and  lY  are  relative  UTM  coordinates. 


SUBROUTINE  RAOB  (HMP,  PMP,  TMP,  DMP,  VALU) 

Routine  to  calculate  temperature,  dewpoint  depression,  and  pressure  for  the  midpoint  of  the  CFDB  layers. 
Input  Data 

IX  = X distance  of  RAOB  site  from  IXREF,  hectometers. 

lY  = Y distance  of  RAOB  site  from  lYREF,  hectometers. 

IH  = terrain  height  at  RAOB  site,  meters. 

ITIME  = time  of  RAOB  (0-1439). 

ITYPE  = 4,  (-4  if  a special  RAOB) 

IZ(I)  = altitude  of  RAOB  reporting  level,  dekameters. 

IP(I)  = pressure  of  RAOB  reporting  levels,  millibars*10. 

IT(I)  = temperature  of  RAOB  reporting  level,  (deg.  K.)*10. 

IDD(I)  = dewpoint  depression  of  RAOB  reporting  level,  (deg.  0*10. 

NRRL  = number  of  RAOB  reporting  levels 

HMP(J)  = height  above  mean  sea  level  of  midpoint  of  CFDB  layers,  meters. 

PMPfJ)  = pressure  at  midpoint  of  the  CFDB  layers,  millibars. 

TMP(J)  = temperature  at  midpoint  of  the  CFDB  layers,  deg.  K. 

DIVIP(J)  = dewpoint  depression  at  midpoint  of  the  CFDB  layer,  deg.  K. 

• ••This  Routine  Assumes^^^^ 

1.  Pressures  are  in  decreasing  order  5.  First  RAOB  level  is  at  surface 

2.  Station  elevation  is  given  6.  All  pressures  (except  surface)  are  given 

3.  Temperature  at  top  RAOB  level  is  given  7.  Missing  data  words  are  filled  with  -32768 

4.  Temperature  at  two  RAOB  levels  are  given 

^ START  ^ 

Convert  input  integer  altitude,  pressure  and 
temperature  to  floating  point.  Set  initial  value 
of  VALU  = 10. 


LOW  END  LEVEL 
IEND=  1 


Reduce  VALU  to  9.  because  of  missing  station 
pressure. 


LOW  END  LEVEL 
lEND  = 2 
VALU  = 9. 


ij 


' I 
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Initialize  level  index  to  highest  level  no. 


Jump  to  65  if  current  level  no.  is  below  low  end 
level  no. 


Determine  LEVHGT,  the  no.  of  the  lowest  level 
for  which  a height  was  reported. 


Jump  to  50  if  temperature  at  current  level  is 
missing  (MISS  = - 32768) 

Jump  to  60  if  there  currently  are  no  levels  at  which 
temperatures  were  originally  missing  and  which 
have  not  yet  been  calculated.  If  there  are  levels 
for  which  temperatures  have  to  be  calculated 
LEVSTR  ¥=0. 

Use  log  pressure  interpolation  to  calculate  the 
temperatures  at  the  levels  between  the  current 
level  and  the  last  level  at  which  temperature  was 
not  missing. 


Tag  current  level  as  the  low  end  missing  temperature 
level.  If  current  level  is  also  the  first  missing  tempera- 
ture level  to  be  encountered  following  a non  missing 
temperature,  tag  it  as  the  high  end  missing 
temperature  level. 


Decrement  level  index  by  1 


Jump  back  to  A if  more  levels  remain. 
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Station  pressure  is  the  same  as  pressure  of  lowest 
RAOB  level. 


Jump  to  120  if  station  temperature  is  missing. 


Jump  to  150  if  station  temperature  is  not  missing. 
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ZILEV)  HMP(9I 


Jump  to  180  if  lowest  level  with  a reported  height 
was  the  first  level  above  the  surface  level. 


LEVHGT  is  a tag  used  to  denote  the  current  highest 
level  at  which  there  was  a reported  value  of  height. 


Jump  to  190  if  reported  height  was  missing. 


Jump  to  240  if  height  of  pressure  level  is  above  the 
height  of  the  midpoint  of  the  highest  CFDB  layer. 


LEVHGT<.  lev  - 1 


If  reported  heights  were  missing  at  one  or  more  levels 
before  the  current  level,  LEV,  jump  to  210. 


LEVHGT*  LEV 


Tag  the  current  level  as  having  a reported  height. 


CALCULATE  A 
TEST  HEIGHT  FOR 
CURRENT  LEVEL 
USING  HYDRO- 
STATIC EQUATION 


^ TEST  ^ 
HEIGHT  EQUALS 
REPORTED 
HEIGHT  — 


NORMALIZE 

INTERVENING 

CALCULATED 

HEIGHTS 


Normalize  the  intervening  calculated  heights 
between  the  current  level  and  the  last  level  with 
a reported  height  on  the  actual  height  interval 
between  these  levels. 


LEV  - LEV  + ^ 


^ YES 

LEV<NRRL  D 


CALCULATE  FINAL 

VALUOFTHE 

OBS/REP 


Jump  back  to  D if  there  are  more  levels. 


V^  = Vi-4 


- Mppj 


= final  value  Mj  = number  of  levels  with  missing 
temperatures 


Vj  = initial  value 


Mq  = number  of  levels  with  missing 
dewpoint  depressions 


N|_  = total  number  of  levels. 
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SUBROUTINE  RETOBR  (INCODE,  NTIME,  INOBEL,  NOMORE,  TYMOLD) 


This  routine 
clouds. 

Input  Data 
INCODE  = 


NTIME 
TYMOLD  = 
Output  Data 
INOBEL  = 
NOMORE  = 


retrieves  an  OBS/REP  from  the  file  and  checks  for  the  presence  or  probability  of  convective  type 


user  control  code.  INCODE  = 1 initiates  the  sequence  and  searches  for  the  first  record  which  is 

returned  to  the  user.  INCODE  NOT  = 1 is  used  on  successive  calls  to  retrieve  the  next  OBS/REP 

in  time  sequence. 

start  time  in  minutes  (0-1439). 

time  of  oldest  OBS/REP  to  be  retrieved 

retrieved  OBS/REP 
control  code 

0 = more  OBS/REP  on  file 

1 = no  more  OBS/REP  on  file  or  remainder  of  OBS/REP  on  file  are  older  than  TYMOLD 


Retrieve  an  OBS/REP  from  the  file. 


NOMORE  = 1 


Jump  to  70  if  there  are  no  more  OBS/REP  on  the 
file. 


NO  ^/^RETR1EVED\ 
— ^ OBS/REP  OLDER 
^\THAN  TYMOLD^ 


Jump  to  8 if  OBS/REP  is  not  older  than  TYMOLD 


NOMORE  = 1 


OBS/REP 
TYPE  IS  1. 
2,  OR  3 


Jump  to  65  if  OBS/REP  is  not  an  AIRWAYS,  METAR 
or  SYNOP  typie. 
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Jump  to  10  if  the  low  cloud  type  word  of  the 
OBS/REP  does  not  show  a convective  type  to 
be  present. 


LT,  the  OBS/REP  analysis  classification  is  a positive 
two  digit  integer  if  low,  middle  high  cloud  type  data 
is  present.  Ten's  digit  is  type  of  low  cloud.  Units  digit 
is  1 for  low  cloud  only,  2 for  low  and  middle  or  high 
cloud,  3 for  low  middle  and  high  clouds. 


Initialize  intermediate  classification  and  address  of 
layered  cloud  type  designator  in  OBS/REP. 


LTT  set  equal  to  -1 1,  if  a layer  with  a convective 
type  low  cloud  is  found. 


Decrement  LTT  by  1 for  each  identifiable  cloud 
layer  above  the  layer  indicating  convective  type 
clouds  which  is  reported. 


Jump  to  45  if  no  convective  type  clouds  have  been 
found  in  the  layered  cloud  data. 


LT  is  a negative  integer  for  layered  type  cloud  data  as 
in  AIRWAYS,  METAR  or  the  supplementary  group 
if  given  in  SYNOP.  LT  equals  -1 1 if  only  convective 
type  clouds  were  reported,  equals  -12  if  convective 
and  a layer  of  another  type  were  reported,  and  equals 
-13  if  a convective  type  plus  two  or  more  other  layers 
of  clouds  were  reported. 
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OBS/REP  analysis  classification  word  set  equal 
to  LT. 


OBS/REP  analysis  classification  word  set  equal  to 
missing  (i.e.  -32768)  for  OBS/REP  types  other 
than  1,  2,  or  3. 


SUBROUTINE  SECTOR 


Establish  the  storage  sector  map  for  OBS/REP  storage  and  retrieval  routines.  All  variables  used  in  subroutine 
SECTOR  are  defined  in  subroutine  BEGIN. 


File  I contains  blocks  of  recent  OBS/REP  data 
records  observed  within  square  sub-areas  of  the 
grid  map. 


Sector  dimensions  are  multiples  of  grid  point 
spacing. 


The  sector  map  is  aligned  so  that  sector  boundaries 
fall  mid-way  between  grid  points. 


Used  to  fine  tune  the  variables  in  subroutine 
BEGIN. 


RETURN 
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SUBROUTINE  SFDINT 

Routine  to  interpret  surface  OBS/REP  in  terms  of  CFDB  purameters. 

Sources  of  input  data  are  aviation  weather  reports  in  AIRWAYS  and  METAR  codes  and  surface  synoptic 
reports  in  SYNOP  code. 

Input  Data 

IX  = X distance  of  OBS/REP  site  from  IXREF,  hectometers 
lY  = Y distance  of  OBS/REP  site  from  lYREF,  hectometers 
IZ  = Terrain  height  at  OBS/REP  site,  meters 
ITIME  = Time  of  OBS/REP 
ITYPE  = Type  of  OBS/REP 

1 = AIRWAYS  -1  if  a SPECIAL 

2 = METAR  -2ifaSPECI  (SPECIAL) 

3 = SYNOP 

IDD  = Wind  direction,  0-360  from  true  north 

IFF  = Wind  speed,  meters/sec 

IPPP  = Sea  level  pressure,  millibars 

ITT  = Surface  temperature,  degrees  Kelvin 

ITD  = Surface  dewpoint,  degrees  Kelvin 


ITSC  = Total  sky  cover,  0—9  WMO  code  2700  I 

IVIS  = Visibility  - j 

AIRWAYS  - Statute  miles  * 10000  ! 

METAR  — Meters  i 

SYNOP  - WMO  code  4377  [ 

NWEA{J)  = Present  weather  — from  1 to  7 elements  may  be  input  j 

AIRWAYS -CF AS  code  1 ( 

METAR  - WMO  code  4678  ' 

SYNOP  - WMO  code  4677  ! 

IPW  = Past  weather,  0—9  WMO  code  4500  j 

NH  = Sky  cover  due  to  low  or  middle  clouds,  0—9  WMO  code  2700  f 

ICL  = Low  cloud  type,  0—9  WMO  code  0513  . | 

IH  = Height  above  ground  of  lowest  cloud,  0—9  WMO  code  1 600 
ICM  = Middle  cloud  type,  0—9  WMO  code  0515 

ICH  = High  cloud  type,  0—9  WMO  code  0509  ■ 

NS(J)  = Sky  cover  due  to  cloud  layer  — from  1 to  10  layers  ■ 

AIRWAYS -CFAS  code  2 jj 

METAR  - WMO  code  2700 
SYNOP  - WMO  code  2700 

ICTSIJ)  = Type  of  cloud  in  layer,  0—9  WMO  code  0500  ii 

IHS(J)  = Height  of  base  of  cloud  layer  1 : 

AIRWAYS- 100's  of  feet  i 

METAR  - WMO  code  1677 


ICLG  = Ceiling  designator  - first  two  digits  are  the  index  No.  J of  the  ceiling  layer.  Third  digit  has  a following 

meaning 

1 = Measured 

2 = Aircraft 

3 = Balloon 

4 = Radar 

5 = Estimated 

6 = Indefinite 

ICLGV  = Characteristic  of  ceiling  — 

Missing  = Not  variable 
1 = Variable 

IVISC  = Visibility  characteristics 
Missing  = Not  variable 
1 = Variable 

Cloud/fog  data  base  parameters 

IV ALU  = Information  value  of  the  OBS/REP  (1-10) 

0 indicates  no  data  useable  for  determining  any  CFDB  params. 

10  indicates  an  OBS/REP  with  all  needed  data  present  and  useable. 

1 to  9 indicates  an  OBS/REP  with  some  missing  or  non-useable  data. 

NTCLC  = Total  cloud  cover.  (00  - 100)  . ^ 

NCEIL  = Height  of  ceiling  layer  (AGL),  dekameters  + type  of  ceiling  digit  as  per  third  digit  of  ICLG.  Minus  it 

variable. 

MINBAS  = Height  of  base  of  lowest  cloud  (AGL),  dekameters. 

MAXTOP  = Height  of  the  top  of  highest  cloud  (AGL),  dekameters. 

MSPWE  = Most  significant  present  weather  element  (WMO  code  4677) 

NVV  = Prevailing  visibility  at  surface,  meters.  Negative  if  variable. 

LCOV(9)  = Percent  cloud  cover  in  the  CFDB  layers 

Derived  layered  cloud  information 

NUMLAY  = Number  of  layers  generated 
KIND  = Kind  of  cloud  layer 

1 = Low 

2 = Middle 

3 = High 

4 = Fog 

5 = Lowest  cloud 

6 = Clear  layer 

ITHIN  = Thin  layer  designator 
MISSING  = Not  thin 
1 = Thin 

COVER  = Cloud  cover  in  layer  (0.0  — 1.0) 

BASE  = Height  of  the  base  of  layer,  feet. 

TOP  = Height  of  top  of  cloud  layer,  feet. 

Map  and  window  data 

XREF  = East-west  UTM  grid  coordinate  of  lower  left  hand  corner  of  the  window,  KM. 

YREF  = North-south  UTM  grid  coordinate  of  lowf  left  hand  corner  of  the  window,  KM. 

CMRD  = Central  meridian  of  window 
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CALL  SYNOP 


X^LAYERED^ 

CLOUD 

INFORMATION 
OBTAINABLE 
^ROM  OBS/RE^ 


Construct  cloud  layers  from  mandatory  SYNOP 
type  data. 


^ LOWEST  ^ 
CLOUD  BASE 
. MISSING 


DETERMINE  LOCATION 
OF  LOWEST  CLOUD 


DETERMINE  CLOUD 
COVER  FOR  LOWEST 
BASE 


CALL  TOPS 


Determine  cloud  tops. 


LOWER  HEIGHTS  OF 
TOPS  OF  LAYERS 
DESIGNATED  AS  THIN 


DETERMINE  MINBAS  AND 
MAXTOP  OF  CLOUDS 
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SUBROUTINE  STOREC  (IREC) 
Stores  an  OBS/REP  in  the  OBS/REP  data  base. 

IREC  = Starting  address  of  OBS/REP  from  calling  routine. 

Input  — IREC  = Starting  address  of  OBS/REP. 


1 


If  the  location  of  the  OBS/REP  is  outside  the 
boundary  of  the  sector  map,  the  following  message  is 
printed  - "DATA  RECORD  RECEIVED  WAS  TOO 
DISTANT  FOR  STORAGE". 

If  the  observation  time  of  the  OBS/REP  indicates  old 
data  the  following  message  is  printed  — "DATA 
RECORD  RECEIVED  TOO  LATE  FOR  STORAGE". 


Sector  numbers  correspond  to  block  numbers  in 
file  I. 


To  store  a new  OBS/REP  there  must  be  space  in  the 
core  array  ITABLE  and  in  the  file  I block. 


Generate  a new  file  J block  containing  the  oldest 
OBS/REP's  in  file  I. 


Mass  storage  to  core  transfer. 

OBS/REP's  within  a block  are  sorted  on  observation 
time. 

Core  to  mass  storage  transfer. 
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SUBROUTINE  SYNOP  (CTOT,  CLOW,  HLOW,  LOWT,  MIDT,  NHIT,  NWEA,  DLAT,  VAL,  MSPW) 


Routine  to  convert  total  cloud  cover,  lowest  cloud  cover,  lowest  base,  and  cloud  types  into  layered  cloud 
information. 

Inputs 

CTOT  = Total  cloud  cover  (range  0 - 1 ) 

CLOW  = Lowest  cloud  cover  (range  0 - 1 ) 

HLOW  = Lowest  cloud  base  in  feet 
LOWT  = Low  cloud  type 
MIDT  = Middle  cloud  type 
NHIT  = High  cloud  type 
NWEA  = Present  weather 
DLAT  = Latitude 


Outputs 

VAL  = Indicator  for  combinations  of  missing  data  (0.0  - 10.0) 

MSPW  = Most  significant  present  weather  category 

Derived  layered  cloud  information  on  COMMON/CLOUDS/ 

NUMLAY  = Number  of  layers  generated  (initialized  before  calling  SYNOP) 
KIND  = Kind  of  cloud  layer 

1 = Low 

2 = Middle 
3=  High 
4=  Fog 

5 = Lowest  cloud 

6 = Clear  layer 

ITHIN  = Thin  layer  designator 
MISSING  = Not  thin 
1 = Thin 

COVER  = Cloud  cover  in  layer  (0.0  - 1.0) 

BASE  = Height  of  the  base  of  layer,  feet. 

TOP  = Height  of  top  of  cloud  layer,  feet. 
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START 


Enter  with  no.  of  layers  (NUMLAY)  initialized. 


i 

( 


li 


i' 

i 


_ Using  CTOT,  CLOW,  LOWT,  MIDT,  HLOW  and 
NHIT. 


BASH  I - high  cloud  base 


NCB 


Bump  NUMLAY  and  set  NUMLAY'th  values 
in  COMMON  /CLOUDS/ 


Check  CTOT 


Check  CTOT 


Check  CLOW 
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CODE  MIDDLE 
CLOUD  COVER 


CODE  CLEAR 
LAYER  TO  BASE 


RETURN  ^ 


I 

i 

{ 

t 

> 


Bump  NUMLAY 


BumpNUMLAY  { 


Bump  NUMLAY 


Check  CTOT 


Check  CLOW 
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Check  MIDT 


Check  CTOT  and  NHIT 


Bump  NUMLAY  for  each 
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Check  NHIT 


Check  NHIT 


CODE  HIGH  CLOUD 
MIGHT  BE  PRESENT 


I 


\ 

I 

i 

i 


M 

I 

1 


i 

1 


Bump  NUMLAY  for  each 


Bump  NUMLAY 


Check  MIDI 


Check  MIDT 


I 

i 

a 

{ 

i 


i 

j 


t 

i 

I 

i 

i. 

i 

t 


i 

» 

I 

f 

( 

f 


I 

1 

I 

i 
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Bump  NUMLAY 


CODE  MIDDLE 
CLOUD 


RETURN 


CODE  HIGH 
CLOUD 


-^TOTAL  ^ 
CLOUD 
OVERCAST 


Check  CTOT 


;Check  NHIT 


TYPE  MISSING 


NO 

LOW  CLOUD 


Check  HLOW 


CODE  LOW  CLOUD 
DEFINITELY  PRESENT 


XWIDDLEN 
CLOUD  TYPE 
MISSING  OR 
^ZERO^ 


Check  MIDI 


CODE  MIDDLE  CLOUD 
DEFINITELY  PRESENT 


^ MIDDLE^ 
CLOUD  TYPE 


Check  MIDT 


CODE  MIDDLE  CLOUD 
TYPE  MIGHT  BE 
PRESENT 


Check  NHIT 


CLOUD  TYPE 
MISSING  OR 
ZERO  ^ 


CODE  HIGH  CLOUD 
DEFINITELY  PRESENT 


HIGH 

TYPE  MISSING 
OR  ZERO  AND 
TOTAL  OVERCAST, 


Check  CTOTand  NHIT 


CODE  HIGH  CLOUD 
MIGHT  BE  PRESENT 


1 


; f 
: I 

; I 

I 

V < 

^ f 


\ 


• ^ 


i 

't 


Bump  NUMLAY  for  each 


Bump  NUMLAY  for  each 


Check  NHIT 


Check  NHIT 
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CALL  CASES  TO  DETERMINE 
TWO  RANDOM  CLOUD  LAYERS 


CODE  MIDDLE  AND 
HIGH  CLOUDS 


Bump  NUMLAY  for  each 


RETURN 


CODE  LOW  CLOUDS 
MIGHT  BE  PRESENT 


Go  to  580  of  LOWT  equals  3 or  9 


Go  to  590  if  LOWT  equals  2 


CODE  LOW  CLOUD 
DEFINITELY  PRESENT 


CODECS  PRESENT  AND 
ASSURE  THUNDERSTORM  IN 
WEATHER 


CODE  TCU  PRESENT 


ASSURE  SHOWER  IN 
WEATHER 


MIDDLE 


CLOUD  TYPE 


PRESENT 


MIDDLE 


CLOUD  TYPE 


MISSING 


CLOUD  TYPE 


PRESENT 


CLOUD  TYPE 


MISSING 


CODE  LOW  CLOUD 


CB  OR  TCU 


CheckjyilDT 

Check  MIDT 

Check  NHIT 

Check  NHIT 

Bump  NUMLAY 

RETURN 

Return  if  NCB  less  than  2 

E 


I 


i 


SUBROUTINE  TOPS  (TERHT,  NWEA,  DLAT) 


Routine  to  determine  cloud  tops  given  cloud  bases,  cloud  cover,  and  weather. 


TERHT 

NWEA 

WEAHIT 

KCURW 

KPWEA 

THICKO 

STHICK 

CLDTOP 

SAMT 

DLAT 


terrain  height  in  feet 

weather  in  area  (WMO  code  4677) 

expected  heights  of  cloud  tops  in  100's  of  feet  due  to  weather 
weather  factors  for  WX  50-99 
weather  factors  WX  10-29 
thickness  of  cloud  in  feet  at  MSL 

slope  of  cloud  thickness  with  respect  to  base  of  cloud  above  MSL 

maximum  height  of  cloud  top  in  feet 

conversion  factor  for  cloud  cover  to  cloud  thickness  factor 

latitude 


Derived  Layered  Cloud  Information 
NUMLAY  = number  of  layers  generated 
KIND  = kind  of  cloud  layer 

1 = low 

2 = middle 

3 = high 

4 = fog 

5 = lowest  cloud 

6 = clear  layer 

ITHIN  = thin  layer  designator 
MISSING  = not  thin 
1 = thin 

COVER  = cloud  cover  in  layer  (0.0  - 1.0) 
BASE  = height  of  the  base  of  layer,  feet. 
TOP  = height  of  top  of  cloud  layer,  feet. 


Maximum  cloud  height  probable  at  latitude  of 
OBS/REP 


h 
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/ CLOUD  \ 
LAYER  KIND 
\ IS6  ^ 


Initialize  cloud  layer  index. 


Jump  to  B if  cloud  layer  KIND  is  not  LOW,  MIDDLE, 
HIGH  or  FOG. 


Calculation  of  cloud  top  from  cloud  amount,  height  of 
cloud  layer  base  above  mean  sea  level  and  non  zero 
weather  factor. 


Cloud  top  cannot  be  greater  than  maximum  probable 
height  for  latitude  of  OBS/REP 


Jump  to  60  if  current  layer  is  a FOG  layer. 


Set  cloud  top  equal  to  larger  of  current  value  or  value 
due  to  weather  alone. 


Jump  to  60  if  KIND  of  layer  is  CLEAR. 
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Routine  to  interpret  upper  air  OBS/REP  in  terms  of  CFDB  parameters 


Sources  of  input  data  are  upper  air  soundings  (RAOBS)  of  pressure,  temperature  and  dewpoint  depression. 
Input  Data 

IX  = X distance  of  RAOB  site  from  IXREF,  hectometers. 
lY  = Y distance  of  RAOB  site  from  lYREF,  hectometers. 

IH  = Station  elevation  above  mean  sea  level,  meters. 

ITIME  = Time  of  RAOB,  (0-1440) 

ITYPE  = 4,  (—4  if  a special  RAOB) 

IZ(I)  = Altitude  of  RAOB  reporting  level,  meters 

IP(I)  = Pressure  of  RAOB  reporting  levels,  millibars*) 0 

IT(I)  = Temperature  of  RAOB  reporting  level,  (deg.  K.)*10 

IDD(I)  = Dewpoint  depression  of  RAOB  reporting  level,  (deg.  0*10 

NRRL  = Number  of  RAOB  reporting  levels 
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B 


f 


IGNORE  LEVEL 
IF  PRESSURE 
MISSING 


INCREMENT 
TEMPERATURE 
REPORT  COUNTER 
IF  TEMPERATURE 
NOT  MISSING 


^ MORE  ^ 
RAOB  LEVELS 


•^TEMPERATURE^ 
IS  REPORTED  AT 
TWO  OR  MORE 
LEVELS 


Ignore  report  and  set  value  to  0 if  temperature  is  not 
reported  at  two  or  more  levels. 


INSURE  THAT  THE 
HIGHEST  RAOB  LEVEL 
USED  HAS  A 
REPORTED  TEMP 
ERATURE 


RAOB 

•^ITE  ELEVATION^ 
DISMISSING  ^ 


Ignore  report  and  set  value  to  0 if  RAOB  site  elevation 
is  not  given. 


' f $ 


t 

i 

I 

1 


Determine  temperature  — dewpoint  spreads  at  the 
midpoints  of  each  of  the  CFDB  layers. 


Convert  temperature  — dewpoint  spreads  to  cloud 
cover  in  each  of  the  CFDB  layers. 


Base  of  cloud  cover  is  base  height  of  lowest  CFDB 
layer  with  a non  zero  cloud  cover.  Top  of  cloud 
cover  is  the  top  height  of  the  highest  CFDB  layer 
with  a non  zero  cloud  cover. 


Use  the  fraction  of  the  total  number  of  CFDB  layers 
for  which  cloud  cover  could  not  be  determined  and 
the  value  calculation  in  SUBROUTINE  RAOB  to 
determine  OBS/REP  value. 


! 


I 

I: 


I 

I 

■ 


RETURN 


SECTION  4 

OPERATING  INSTRUCTIONS 


4.1  TASKS  AND  DATA  INPUTS 

The  CFAS  is  a subsystem  to  the  EPAMS.  The  CFAS  is  called  by 
the  EPAMS  through  SUBROUTINE  CFEXEC.  Task  requests  and  data  are  passed 
to  the  CFAS  through  the  argument  list  in  CFEXEC.  The  items  in  the 
argument  list  of  CFEXEC  are  described  in  Table  2-6.  The  key  element  in 
this  list  is  the  integer  variable,  TASK,  which  tells  the  CFAS  what  task 
it  is  to  perform.  The  particular  task  to  be  performed  determines  the 
other  elements  in  the  argument  list  for  which  values  must  be  specified. 

A tabulation  of  these  elements  indicating  those  required  for  each  of  the 
four  tasks  is  given  in  Table  4-1. 

The  OBS/REP  are  passed  one  at  a time  to  CFAS  on  each  call  with 
TASK  = 2 through  the  one  dimensional  array  OBSRPT.  The  data  elements 
in  the  five  different  types  of  OBS/REP  are  described  in  Tables  2-1 
through  2-4.  The  ordering  of  these  elements  in  each  of  the  five  types 
of  OBS/^EP  is  given  in  Table  4-2.  Each  element  is  of  integer  type. 

The  data  which  the  user  must  supply  through  DATA  and  PARAMETER 
statements  in  SUBROUTINES  CFEXEC,  CFMAP  and  COMOBR  are  described  in 
Table  2-6. 

4.2  MASS  STORAGE  FILES 

The  CFAS  requires  access  to  five  disk  files  having  logical 
system  file  numbers  0 through  4.  The  size  requirements  of  file  number  0 
is  equal  to  the  storage  allocated  to  named  COMMON/baSE/.  The  storage 
allocated  to  /bASE/  as  well  as  the  size  requirements  for  logical  system 
file  numbers  1 and  2 depend  upon  the  values  of  the  storage/retrieval 
parameters  set  in  SUBROUTINE  BEGIN.  A discussion  of  these  parameters 
and  their  effect  on  running  time  and  storage  allocation  is  given  in 


TABLE  4-1 

ELEMENTS  IN  THE  ARGUMENT  LIST  OF 
CFEXEC  REQUIRED  IN  EACH  TASK 


ELEMENT 

NO. 

NAME 

DIMENSION 

TYPE 

TASK  1 

TASK  2 

TASK  3 

TASK  4 

1 

TASK 

1 

I 

X 

X 

X 

X 

2 

TIME 

1 

I 

X 

X 

3 

OBSRPT 

143 

I 

X 

4 

XO 

1 

FP 

X 

5 

YO 

1 

FP 

X 

6 

XLN 

1 

FP 

X 

7 

YLN 

1 

FP 

X 

8 

LAST 

1 

I 

* 

* 

9 

TYMOLD 

1 

I 

X 

X 

10 

DSP 

1 

FP 

X 

X 

11 

DIST 

3 

FP 

X 

X 

12 

TYMC 

3 

FP 

X 

X 

13 

ISSQ 

5 

I 

X 

X 

14 

NSSQ 

1 

I 

X 

X 

15 

NBKOUT 

1 

I 

X 

X 

16 

IDENT 

10 

I 

X 

X 

* = Provide  an  address  only  for  this  variable  in  calling  program. 
I = integer. 

FP  = floating  point. 
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A 


L 


J 


TABLE  4-2 

ORDERING  OF  ELEMENTS  IN  ARRAY  OBSRPT 

FOR  THE  FIVE  OBS/REP  TYPES  .| 

j I 


ELEMENT 

TYPE  ± 1 

TYPE  ± 2 

TYPE  ± 3 

TYPE  ± 4 

TYPE  5 

1 

IX 

IX 

IX 

IX 

IX 

2 

lY 

lY 

lY 

lY 

lY 

3 

IZ 

IZ 

IZ 

IH 

IZ 

4 

ITIME 

ITIME 

ITIME 

ITIME 

ITIME 

5 

lOBC 

lOBC 

lOBC 

lOBC 

ICBC 

6 

ITYPE 

ITYPE 

ITYPE 

ITYPE 

ITYPE 

7 

IVALU 

IVALU 

IVALU 

IVALU 

IVALU 

8 

NTCLC 

9 

NCEIL 

10 

NVV 

11 

MI NBAS 

12 

MAXTOP 

13 

MSPWE 

14  - 22 

LC0V(l-9 

23 

ICL 

IZ(1) 

24 

ITSC 

IZ(2) 

25 

ICM 

IZ(3) 

26 

ICH 

IZ(4) 

27  - 36 

ICTS(l-lO) 

ICTS(l-lO) 

ICTS(l-lO) 

IZ(5-14) 

37  - 43 

NWEA(l-7) 

NWEA(1-7) 

NWEA(l-7) 

IZ( 15-21) 

44 

IPW 

IZ(22) 

45 

IDD 

IDD 

IDD 

IZ(23) 

46 

IFF 

IFF 

IFF 

IZ(24) 

47 

IPPP 

IPPP 

IPPP 

IZ(25) 

48 

ITT 

ITT 

ITT 

IZ(26) 

49 

ITD 

ITD 

ITD 

IZ(27) 

50 

IVIS 

IVIS 

IVIS 

IZ(28) 

137 


TABLE  4-2  (Continued) 
ORDERING  OF  ELEMENTS  IN  ARRAY  CBSRPT 
FOR  THE  FIVE  OBS/REP  TYPES 


ELEMENT 

TYPE  ± 1 

TYPE  ± 2 

TYPE  ± 3 

TYPE  ± 4 

51 

NH 

IZ(29) 

52 

IH 

IZ(30) 

53  - 62 

NS(l-lO) 

NS (1-10) 

NS(l-lO) 

IP(l-lO) 

63  - 72 

IHS(l-lO) 

IHS(l-lO) 

IP( 11-20) 

73  - 82 

ITHN(l-lO) 

IP(21-30) 

83 

ICLG 

IT(1) 

84 

ICLGV 

IT(2) 

85 

IVISC 

IT(3) 

86  - 112 

IT (4-30) 

113  - 142 

IDD(l-30) 

143 

NRRL 
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Section  3.3.1.  The  size  of  logical  system  file  number  2 is  equal  to  23 
times  the  number  of  OBS/REP  used  in  a creation  or  update  while  the  size 
of  file  number  4 is  equal  to  the  number  of  grid  points  in  the  CFDB  times 
15. 


4.3  CORE  REC5MIHEMENTS 

Without  segmentation  and  overlaying,  CFAS  requires  approximately 
126002^0  words  of  instruction  code  and  about  363002^0  words  for  data  for  a 
600  km.  square  window  with  a grid  point  spacing  of  25  km.  and  with  a 
dimension  of  600  for  the  maximum  number  of  OBS/REP  to  be  used  in  a 
creation  or  update. 

4.4  SAMPLE  RUN 

Using  the  test  driver  CFMAIN,  Section  3.9,  together  with  the 
system  runstream  elements  .TROOIC  and  .STORE  and  data  elements  .TROOID 
and  .OBSREP  (all  listed  in  Appendix  l),  the  created  CFDB  shown  in  Fig.  4-1 
and  the  update  CFDB  shown  in  Fig.  4-2  are  produced. 


cr  THE  cro 


ri  u iA  o o u ti  o irt  o in  u o w»  in  I.**  tn  o cj  i>  U u»  ui  ir>  cj  tj  m o o c)  tJ  in  li  trt  cj  o CJ  o {•)  u o 

^ ^ b>  tP  U>  fO  l**  r4  ^X)  >**  If’  ^ ^ m VO  UJ  in  ^ ^ ^ U*  h»  U>  Ifl  lU  ^ U"'  ^ 


I U b<  l>j  i>  (-«  VJ  Vj  l*‘  kj  1.1  bl  Cj  < 


.i.tijitcvmi4iUtvtJijui.jo 

t :f  :r  t u>  i'-  ^ f-  i*»  v f-  f-  u» 


in  u in  CJ  ti  cj  in 

f.  f4  t 


I u LJ  ii'*  u>  iJ  m CJ  cj  in  u c ) Li  bi  m in  o VJ  I*")  t j ui  in  1.1  t j ui  cj  tj  in  u ifi  t)  in  tj  o o CJ  u (J  o O 
j,  ifli’hf-.ri  .-«Ullol*•^^^^J  fiu*f^i.i»tfr*C/r'r-h*L-u'>’*r.^*in 

1 11  tj  in  in  o u o O o U Cl  ij  in  v-1  f j o in  cj  in  u Cl  in  in  in  in  a c»  u m u in  ui  tn  u c i m n o cn 


ipincitiCiUinmo 

ei  r-i  ^ 


o »*'»  c o Cl  Ci  n cj  crj  m in 

f 


Ci  o C/  m c.  t."*  in  o t*.  in  cj  tn  c.  in  (j  t-n  ui  in  Cl  c “1  o Cj  Cl 

^ . t>.  » • m~t  t-  ^ Cl  .Y  Cl  r-  i.^  ^ ^ I"  m vO  m Vw  m 


jn  ^ u o c o u-.  JA  o .«  D c.  o o o o o u,  « o c o JO  c.  c.  u .-■.  |n  jn  5 o o o o JO  o rj  ^ .J|  o o o n 

ininocjociinini3incj0ocarjcjoirtinor)c3inoocjvnoooo0inc3ini.ninuninaoo<3 

c^ri  t *•-  fc.r»4  c,c»»4iri.r.»><f.»»»iot-in 


in  ui  4.1  Cl  Ci  Cj  ui  1.1  tJ  in  IT  Cl  o Ci  n u u u.  li  o ci  u li  Cj  c^  c.  i.i  lj  u Ci  ci  tj  m u m n li  h m u rj  ii  o 

c f.  C ♦‘i  JT  t-  r f ; » » c f a jc  V r r4  c cr  if  » 11  o LI 


m in  11  Cl  c>  Cl  in  I*-!  cn  m m CJ  r>  U ci  in  ci  m in  o c.  cj  in  li  ci  t J h ci  o cj  cj  i>  m ii  m li  in  li  in  o ci  VJ  o 

^ iw  C n .H  all  elf’s  fji  ri»*  r » .-r  a r i e i • ' e <r  ^r  i- i..  i.-’ 


in  Li  m Li  c-  t c.  ►.  M en  m o C-.  c-  c-  m m m VJ  Cw  Cj  LI  LI  m LI  t j i » c»  ri  in  1 1 r u c cj  ci  fi  ^ ri  o u 
fccc  9 ^ t*'  c I c c ouiiract  cc  lOiomc-C'C'C'r  i*l’  cc  c'tt‘C'C‘i.’'i‘'*"*L  LitiC’e^c  t'<i 


L LI  ti  c-  r*  C' t'  <1 


LI  in  cn  Li  m i*!  K"  n in  l«  ' 


• c Li  Cj  Li  r-  1 1 M VI  L'»  a LI  lo  d ^ IV  ^ ^ ui  i.*»  M M M CJ  ix>  m Ll  » 


F 


tJ  i. . li")  tJ  tJ  V I i*>  u u i.>  i. * u>  t. ' o o tJ  w'  u 

tiv  A.'  j tj  i»  i»  i.»  fc.,  t'l  w4  it-  »-«  I t » a i.  i'  a ci> 


u u)  u u u u ■ ij  i*'  i«  t-)  in  u « > u u u m u ift 
u><rr.rji  i..c»wj»>  •*  v cjf  w 


I L*)  ( I c j cT  m lo  u m m n m r ) ct  * i < J c j o m o w 

• ^ I K r I io  u‘<  i*>  i.*  m JT  f • it  f . 1 1 i»  > t£*  1 4 ^ f 4 


11  i.'»  ri  tJ  m i_,  ti  C)  m Cj  m ui  in  cj  r>  c.  ci  wi  m ti  o 
^.  f I i.*  rj  cj  i*'  ^ 


o oomcjtjincjtnoocjincjooo^w'irti 
^ ^ ^.  M U ••«  t.  it  fi  «M  rj 


c)  C3  o in  cj  o in  CJ  m o o o in  o o o tj  i*"*  m irt  o 

^ t4rjr;w  •*■•  i..  ri  f f4 


f-j  rj  (••  k.>  c • cj  m tJ  i«'  i*^  C4  t4  i*^  o C)  t<  in  •»*»  in  w>  u 
^ ri  f-.  f i4' m in  f-  n 


i cj  « • 11  r>  o in  ft  in  m O o m o Cl  Cj  m in  o in  fj 
ri  r It  i'  4^  1-.  i',  r > m fj 


eo  V } in  u-  r-  i » r 


, cj  c ► « iT. 

in  fn  u in  li 


■ U C/  ►»  »n  ^n 

- <.1  O'  o le  O c 


9 M rn  .H  r-  wi  i*.  ;r  <r  c«  r-  <n  i*  n C'  ■»  fJ  m M 

r r f c.  i - i f i t c i »•  I f L.  i V t r--  r 

^ rt  rl  rl  L.  fc-l  »n  C ri  rt  f.  r U »■<  O ‘W 

»<  •<  r4  r-4  rl  e1  *4  tH  t -4  »1  €-4  M 


-P 

c 

o 

G 


PQ 

Q 

U- 

O 

TD 

G 

-P 

TO 

<U 

P 

o 


I 


a 

PH 

u. 


1 


I 1 1 t-  fn 
' 9 1“  11  « i' 


r if  in  C.  in  t-.  »•>  ' 


I a in  n*  M M 14  fi  '*  • 

r-  i?  a*  i*  it  r-  c r'  it  » 

r-  fc  ■o  f I . f I i/  ^•  ».*  I 

.4  .4  f , f ' » « « 


f')  if  fJ  f4  in  C»  cn  Cl  ^ 
t it  tn  tJ  «■ 

i c . ( I r : » »■»  ft  r;  ^.  in 


rj  c 4 ri  * J c 
rl  r4  r4 


4 r«  r.  ri  ft  M f 


*••  t < I . t> 


.1  f t f ft 


I M f 4 fi 

, »c  tc  «n 


1 


f£  in 


lA  t »n  fi.  f iv  f • «.  C «n  r.  r t f . i’-  C lO  f-  f • 
f.  it  r j «-  »j  u*  f-  f*  a f • f*  «■  **'  f ■ f-  ft  in  It  c 1 


-1  a y)  .D  f f »4  ri  •'i  a-  ui 


ii  t.  r rl  f I Ki  a 4t  lO  r-  <A 


O iii  I.n  o)  in  I • f » t-  r-  f-  f r-  o r-  u.  r <0  I 


142 


o LJ  u in  u to  u o in  o ci  u u (J  cj  i.‘»  u u o w>  in  i/»  tA 

^ u>  m a-  u>  ^3  w yi  ^ i»»  f*  i*'  i*"' 


u tJ  y*  t3  ui  m w Ci  w«  n o w n u»  i.i  y>  t'  u tJ  ui  y>  m 

St  i * I • o'i  ^ JT  ii>  i-J  i/  ^ ^•  ^-  y i.  u . »/>  CO  i'  r * t • y • t j ^ 


tn  LJ  C3  in  cj  u 1*1  t>  t-i  yT  m tj  CJ  o y»  L>  cj  u")  o o C3  m c>  LI  m 

^ y>  t ■»  yi  /f  M IP  ii  » ^ f.  y m ti  in  » h Ci  in  ^ fj  •-« 

ii  o in  cj  in  y”>  m m i>  cj  in  y*»  y 13  y**  yJ  in  in  ti  t)  t'»  y rj  yi  m 

p,  y'l  f . f i y y . f I ^ fn  i3  yn  y > y y.  ro  » < I'l  y if  f ^ 


I c t)  t>  y cj  in  yi  c c.  y m y.  C3  y c-  m yi  ri  c..  c'  y o i*"*  y 
r'tip'O'r  «f,wy.  y^Lfy-iff-r'^’t  o^«-i 


j o cj  y y>  m ui  cj  C3  in  Ci  c3  yi  o *j  o cj 

p.  p'y.^cff  yp-^yyi^ 


C3  ui  c:  in  o o o 

XT  ^ r4 


in  o cj  o C)  1*^  y in  yi  o CJ  C3  o o m C3  in  o cj  o 
p » r r4  p ■ in  y - » y •*■  «h 


cj  n tj  n m cj  cj  u o in  11  y y>  cj  u cj  cj  c*  y cj  cj  in  cj  o 
f 1 f . if  f ••i  f I if  y y'*  a-  y.  y-  t-t 


K»  C'  t3  I.  y t-«  rj  t ‘ n t*»  y c > f 4 y (>  c r4  »n  i < Cj  ^ r4  m 

t r c'  C’  t'  C'  C>  n>  c ii  y»  L'  liJ  C*  « o O i1  O c*  lO  O O 


f t r y.»c«-fi<  C 
V/  *4  C’  «i  C'  lu  «>  f-  <■’  c- 


f».  M f lO  if  «3  rj  ir*  •» 


' 10  ^ ti  y 'n  n* 

f . , . t.  r arc  r' 
, p.  c*  ^ *4  y.  cr»  CJ 


4.3  ( j I \ f 4 m yi  f J C 
p.  # . f ; y,  f'  t 3 13  C' 


• p-  Cl  y.  *c  i4  m 13  • 4 c*  p*  I - v3  CJ  » p^  p- 

' r.  ti  c p r-*  .4  ^ y (.1  if  yi  y 


♦1  i i c • 14  ti  p»  c » m 4 ,4  pi  CO  m t j fi  y»  'n  p-  f j p"/  in  I 

p t {>ufJfi*'>t<.iff.4'c*''C  •■r.»*«oi*p-t’i‘t''( 

iP  <•  ip  4-  t i if  I J C I ; >*•  f . P f > ^ fi.  P-  C*  I ’ J P - « - ' 

f «'4.iP<«'4'«P'4*<  'lr-*»*f|4* 


I 4 I • 4 P . 4.  Li  I 

Lj  I . t C ' k.  ‘ 4 

• • I • j f-.  » f't  Pi  r 


ti  y p-  c-  ir  c p,  Cl  p-  <0  f c » c r)  y*«  • > t.*  r Ci  o p-  t ^ i*-  pj 
p.  p-  p-  id  u*  y>  e-  c C'  c 4-  c>  f tj  p-  p-  t-  in  ft  p*  p-  rj  i»  ri 


'n  4*  p*  Pi  If  If.  * •'  p-  *n  « y f-  p*  Hi  i*'  p*  »®  • 


Pi  pi  p.  p^  ^ 3 4 if  « y-  y yi  ui  y*>  u »c-  y*  y y r-  p-  p-  p~ 


- 144  - 


-Tni!r  - :ir-i.:[:i; . 


IfH  J 


SECTION  5 
CONCLUSIONS 

The  design  concept  of  the  CFAS  that  has  evolved  in  this  effort 
■!  is  reasonably  close  to  that  which  was  envisioned  at  the  outset.  The 

CFAS  can  perform  the  intended  function  of  creating  and  maintaining  a 
cloud,  fog  and  weather  data  base  in  near  real  time.  The  actual  total 
execution  time  on  a Univac  1106  computer  is  approximately  38  seconds 
for  a creation  made  on  a 600  km.  square  window  of  grid  points  spaced 
25  km.  apart  from  seventy  OBS/REP.  The  core  storage  requirements 
turned  out  to  be  somwhat  larger  than  originally  planned,  but  the  CFAS 
is  structured  for  convenient  segmentation  and  overlaying  which  can 
14  substantially  reduce  the  core  storage  requirements  at  a modest  cost 

in  execution  time. 

The  design  of  the  CFAS  is  such  that  provisions  for  the  evalua- 
tion and  interpretation  of  cloud  and  fog  information  from  data  sources 
,•  other  than  those  currently  employed  can  be  easily  incorporated.  This 

■[  feature  was  deemed  to  be  particularly  important  because  it  became 

1 evident  early  in  the  program  that  the  density  of  conventional  surface 

and  upper  air  observations  could  be  rather  sparse  in  certain  operational 
environments. 


Our  recommendations  for  further  efforts  on  the  CFAS  are  con- 
tained in  Section  6. 


SECTION  6 
RECOMMENDATIONS 

Our  principal  recommendation  is  that  the  CFAS  be  subjected  to 
a test  and  evaluation  program  using  an  historical  data  base  representa- 
tive of  the  various  meteorological  regimes  in  which  the  CFAS  must  function 
Verification  schemes  should  be  employed  in  the  evaluation  which  are  free 
of  any  bias  and  designed  to  evaluate  the  analysis  error  for  the  entire 
analysis  area  as  well  as  at  discrete  points.  Most  important  in  the 
evaluation  should  be  a determination  of  the  affect  of  data  density  and 
its  variability. 

Other  recommendations  include  the  following: 

1)  An  investigation  of  the  cost/benefit  of  additional  data 
sources  such  as  radar,  satellite,  and  the  more  or  less 
qualitative  but  numerous  observations  that  could  be 
obtained  from  non-meteorological  personnel  deployed  in 
the  field  Army's  region  of  responsibility. 

2)  An  experimental  determination  of  suitable  values  for  the 
OBS/REP  storage  and  retrieval  parameters.  This  should 
be  a coordinated  effort  with  other  EPAMS  activities  and 
done  as  part  of  an  optimization  of  the  CFAS-EPAMS  inter- 
action. 

3)  An  investigation  of  improved  probabilistical  and 
statistical  techniques  for  the  inference  of  cloud 
parameters. 
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SUBROUTINE  AFOINT 

2 

COMMON  /03SREP/ IX. I Y t 12 . IT IM Et I03C . IT YPE 

3 

< 

'.MlN3AS.MAXTCP.MSPUE»LC0Vtl5l .NOUSE (1151 

A 

DIMENSION  LC0V3(16J 

5 

DO  10  1=1.3 

6 

10 

LC0V9tI):LCCV(I) 

7 

Z=I2»3.281 

8 

IF( Z .LE.  150.)  GO  TO  100 

9 

iZ  .6T.  1500.)  GO  TO  30 

10 

00  20  1=1 .3 

11 

20 

LCOVBI l+G)=HAXO(LCOVtI»6 ) .LC0V(I*7)I 

12 

GO  TO  100 

13 

30 

IF(Z  .GT.  1650.)  GO  TO  AC 

lA 

LC0VB17):LC0V(8 ) 

15 

LCOVSr  9(=MAXC(LC0V(9).LC0V(10 1) 

16 

GO  TO  100 

17 

AO 

!'•  (Z  .GT.  3300.1  GO  TO  50 

18 

LC0Va(7)=LC0V(9) 

19 

LCOVB ( 8)=LC0 V( 9) 

20 

LC0VB(9)=LC0V(10) 

21 

CO  TO  100 

22 

50 

IF( Z .37.  6500. ) GO  TO  60 

23 

LCOVB(  7 )=PAX0(  L:0V(9I.I.C0V(  10  )l 

2A 

LCOVB(3)=LCOV31  7) 

25 

LCOVB(9)=LCOV(10) 

26 

GO  TO  100 

27 

60 

LCOVB( 7)=LC0V(1D) 

28 

LC0V3(0>=LC0V3(  7) 

29 

LCOVB t9)=MAX0(LC0V(10l»LC0V (111) 

30 

100 

00  110  1=1.9 

31 

110 

LCOVd  ):LC0V8(I) 

32 

RETURN 

33 

END 
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CF»S  SU3PH0GR4M  ELEMENT  BAKUTM 


CLOUD -FOG«CFAS, 
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BAKUTM 

SUBROUTIN': 


BAKUTM  tW.I.XrY iCMRO) 


INVERSE  OF  UTM  - CONVERTS  HUN3RE0S  OF  KILOMETERS  TO  DEGREES. 

A - CONVERSION  FACTOR  tlCO’S  OF  KM/RADIAN  ALONG  GREAT  CIRCLEI 
RAO  - CONVERSION  FACTOR  I R A OIAN/OEGREE) 

CMRD  - CENTRAL  MERIAOIAN  IN  BEGREES 
Zi  ZN  - IN  DEGREES 


DUNf  OZN>  W« 
OXt  OYi  Xt 


UN  > 

XNf  Yt  YN  - IN  ICO'S  OF  KM 


10 

A = e3.782C6A 

11 

RAD  = 0.017R53292 

12 

ZN  : ( Y/(A  • RAO  » » 

13 

UN  = <-X/{A  • COSCZN  • 

RAD  ) 

10 

00  10  I r IflD 

15 

CALL  UTM  t UNt ZN tXN* YNfCMRO) 

16 

OX  : X - XN 

17 

OY  = Y - YN 

16 

OZN  = (DY/(A  • RAOn 

19 

ZN  = ZN  ♦ OZN 

2C 

OUN  = f-OX/( A • COS( (ZN 

♦ o: 

21 

UN  = UN  * OUN 

22 

IF  (A3S(0XI  .LT.  l.E-5 

.ANO  < 

23 

10 

CONTINUE 

2<t 

20 

CONTINUE 

25 

U = UN 

26 

Z : ZN 

27 

RETURN 

28 

END 

iHOOtR  CFAS  SUBPROGRAM  aEMENT  BEGIN 


aPRTtS  CFAS.BECIN 
FURPUR  0026-10/28-13:57 


A ! 


rnnv 


1-2 


iu.' 


CFAS  SUBPROGRAM  SLEMENT  BEGIN 


CLOUO-FOG«CFAS.BESlN 
1 
2 
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SUBROUTIN':  BI'^tN 

C NCTI  - UNLESS  CTHEPWISE  NOTES  - ALL  DISTANCE  PE ASURC MEN^ S.  U Tp  UNITS* 

C ANO  UTM  COORGINAT'S  ARE  CARRIED  IN  HECTOMETERS  MHERC  I HCCTOMTER 

4 C EQUALS  ICE  PETERS. 

5 C NOTE  - UNLESS  OTT'-RUISE  NOTED  - ALL  TIMES  MILL  DE  CARRI'-Q  IN  HINJ^ES 

6 C FOR  A IHH''  MINUTE  CLOCK. 

7 0 

8 C XiRE*"  and  YREF  MUST  3E  IN  KILCpITERS  AND  MUST  3E  SUPPLIED  BY  TME 

9 c calling  program. 

1C  COMMON  /PAP/  XRlF.  YPEF.  CMRD 

11  c 

1?  COMPCN  /PACE/  DXGECT.  OYSECT.  ECGEt  lELCCK.  lOTlMCt  lOXUTP. 

13  • IOYUTM.  IN’JMGR.  ISTATI.  IGTATOt  JN'JMTR.  J'S’ATI.  J3T  AT  0.  JTTME* 

14  • LASTJ.  MAXGPS*  NBJNOWt  NELKFJ*  NC0LS»  NGXt  NOYt  NI M t NINTA6. 

15  • NROWSt  NRPO-I.  NRPBFJf  NSECTR.  NWD3KI*  NWOOKJ*  NHOREC*  NX3ECT, 

16  • NVSECTt  UTMFCOf  XBASE*  XPAX*  XMIN*  YPASC*  YMAX*  YHIN. 

17  ♦ NNEWRSllECI.  NALLRSdOCI*  ITABLE«4*  SCOT.  T9UFT375D)*  JBUFIldOOl* 

18  • JTlMESlirO*  IRXMAX.  IRXMIN*  IRYMAX*  irymin 

19  C NR0U3  : NO.  OF  ROWS  IN  GRID. 

2C  NR0US=24 

21  C NCOLS  : NO.  OF  COLUMNS  IN  GRID. 

22  NC0LS=24 

23  C UTMPGO  : HECTOMETERS  PER  GRID  UNIT. 

24  UTMPGD:25C.0 

25  C XBASE  = ABSOLUTE  EAST-WEST  UTm  GRID  COORDINATE  OF  LOWER 

26  C LEFT  CORNER  OF  GRID  IN  HECTOMETERS. 

27  XBASE:XREF*1D.0 

28  C YBASE  = ABSOLUTE  NORTH-SOUTH  UTM  GRID  COORDINATE  OF  LOWER 


29 

f4 

W 

LIFT  corner 

OF 

GRID  IN  HECTOMETERS. 

30 

YSASErYREF  *10.0 

31 

A 

EDGE  r MINIMUM 

OrSTAVCE  FROM  OUTSIDE  GRID  POINTS  TO 

32 

C 

OUTER  BOARDER  OF  OUTSIDE  STORAGE  SECTOR  IN  HECTOMETERS 

33 

E03E:500.  0 

34 

C 

maxgps  = 

MAXIMUM  NO.  OF  GRID  POINTS  PER  STORAGE  SECTOR 

35 

MAXGPS=64 

36 

c 

NWOREC  = 

NO. 

OF 

WORDS  PER  OBS/REP  RECORD. 

37 

NWDREC:44 

38 

c 

NfiPB'"!  = 

NO. 

OF 

RECORDS  PER  BLOCK  IN  FILE  I. 

39 

NRP9FT:85 

40 

c 

NRP6''J  : 

NO. 

OF 

records  per  BLOCK  IN  FILE  J. 

41 

NRPBFJ:22 

42 

c 

NBLK'-J  = 

NO. 

OF 

BLOCKS  IN  file  J. 

43 

NnLKFjr25 

44 

c 

NINTAB  = 

NO. 

OF 

COLUMNS  IN  ITASLE. 

45 

NINTAB:5G0 

46 

c 

nwdbkj  = 

NO. 

or 

WORDS  PER  BLOCK  IN  FILE  J. 

47 

NW3BKJ:NWDREC»NRP3FJ 

48 

c 

NWOCKI  = 

NO. 

or 

WORDS  PER  BLOCK  IN  FILE  I. 

49 

NWDBKT^NWDR EC»NRPBFI 

50 

c 

NCJNOW  = 

NO. 

or 

blocks  in  file  j which  NOW  CONTAIN  OLD 

51  C DATA  RECORDS. 

52  N9JNOW=0 

53  C MINT  = NO.  OF  ENTRIES  IN  ITABLE  NOW. 

54  NINI=0 

55  C I9L0CK  : BLOCK  NO.  OF  BLOCK  IN  FILE  I THAT  IS  NOW  IN  CORE. 

56  IBL0CK=0 

57  C INUM3R  : FILE  NO.  OF  FILE  I. 

58  INUM3R=1 
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cr*s  suaPf^osRAi  element  be3In 


JNUM3R  = file  no.  O'"  FILE  J. 

JNUHBR:2 

IDTIME  r UORO  IN  OATfl  RECORD  CCNTAINING  TIME  OF  OBS/REP  IN 
MINUTES  tC  - 1439). 

IDTIME=4 

IDXUTM  = WORD  IN  DATA  RECORD  CONTAINING  RELATIVE  X POSITION 
OF  03  S/REP. 

I0XUTM=1 

IOYUTM  : WORD  IN  DATA  RECORD  CONTAINING  RELATIVE  Y POSITION 
OF  03S/REP. 

I0YUTM=2 

X9KIL0=XBASE/10.C 
YBKILORYBASE /IC.O 
PRINT  SOD  X3KIL0t  YBKILO 

see  FORMAT  ( IH  . • 3ECIN  - UTM  COORDINATES  OF  LOWER  LEFT  HAND  CORNER  0 
•r  window  in  <IL0METERS  ARE  X F9.2f  • V ='t  F9.2) 

PRINT  SID  NROWSt  NCCLSi  UTMPGD 

SIO  FORMAT  (IH  . • BEGIN  - GRID  CONTAINS*#  14 t * ROWS  AND’#  14.  « COLU 
•MNS  WITH  A 3RTD  INTERVAL  OF*.  F8.2.  * HECTOMETERS*) 

PRINT  S20  NW9REC.  IDXUTM.  IDYUTM.  IDTIME 
52C  FORMAT  (IH  . * 3ECIN  - OBS/REP  RECORDS  WILL  CONTAIN*.  14.  * WORDS 

• WITH » . /. 

• IDX.  *WORD  NO.*.  12,  * = RELATIVE  X COORDINATE  IN  HECTOME TERS • » /. 

• lOX,  *WORD  NO.*.  12.  * : RELATIVE  Y COORDINATE  IN  HECTOMETERS*. /♦ 

• IDX,  *WORO  NO.*,  12.  * = TIME  IN  MINUTES  (D  - 14391*1 

CALL  SECTOR 

DO  10  1=1.  ICO 
NNEWRSC I)=C 
1C  NALLRSTX )=C 
RETURN 
END 
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SUOROUTINE  3UKIN  (NWDOLKt  I-JIARTt  MBKIN.  Lj'^ILE.  1ST  AT  J 

DISK  VERSION.  BLOCK  TRANSFER  FROM  RANOOM  ACCESS  DISK  FILE  TO  CORE. 
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6 
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1C 

11 

12 

13 

14 

15 

16 
17 
le 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 


Z 3LKIN  transfers  TO  CORE  A BLOCK  FROM  A RANDOM  ACCESS  FILE  THAT 
C CONTAINS  BLOCKS  THAT  ARE  ALL  OF  THE  SAME  SIZE. 

C NWOBLK  = NO.  0"  WORDS  PER  BLOCK  IN  THE  FILE  AND  THE  NO.  OF  WORDS  TO  BE 
C TRANSFERRED  TO  CORE  ON  THIS  CALL. 

: ISTART  = STARTIN3  ADDRESS  IN  CORE  WHERE  THE  BLOCK  IS  T 0 9E  TRANSFERRED 
C TO. 

: N9KIN  = NO.  0'’  THIS  BLOCK  IN  THE  FILE.  NBKIN  = 1 IS  THE  FIRST  BLOCK 
C NO.  IN  THE  FILE. 

C LSFILE  r logical  SYSTEM  FILE  NO.  10-15). 

C ISTAT  : STATUS  RETURNED  TO  USER.  ISTAT  r C INDICATES  NO  ERRORS. 

C ISTAT  : 1 INDICATES  AN  ERROR  OF  SOME  KINO. 

C 

C 1108  DISK  VERSION 
C 

C RESTRICTIONS  ON  THIS  VERSION  OF  BLKIN 
C- 

C THE  STATUS  ISTAT  RETURNED  TO  THE  USER  WILL  ALWAYS  BE  ZERO  SINCE  THE 
C FSTRD  ROUTINE  DOES  NOT  RETURN  ANY  STATUS  INFORMATION.  FSTRD  HAS  IT’S 
C OWN  ERROR  MESSAGES. 

C 

NSECP3:| NWDBLK»  271/23 
N3KH1=NBKTN-1 

CALL  FSTRO  (NWDSLKt  ISTARTt  NSECPBt  NBKMlt  C.  LSFILE) 

ISTATrO 

RETURN 

END 
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CFAS  SUBPROSHAM  ELEMENT  BLKOUT 
CLOUD -F OG«CF AS. BLKOUT 

1 SUBROUTINT  3LK0UT  (NUDBLKf  TSTARTi  riBKOUTt  LSTILEt  ISTATJ 

2 

3 C DISK  VERSION.  BLOCK  TRANSFER  FROM  CORE  TO  RANDOM  ACCESS  DISK  FILE. 

<* 

5 C 3LKOUT  transfers  A BLOCK  FROM  CORE  TO  A RANDOM  ACCESS  FILE  WHICH 

6 C CONTAINS  BLOCKS  THAT  ARE  ALL  OF  THE  SAME  SIZE. 

7 C NWOBLK  : NO.  0’^  WORDS  PER  BLOCK  IN  THE  FILE  AND  THE  NO.  OF  WORDS  TO  BE 

8 C TRANSFERRED  FROM  CORE  ON  THIS  CALL. 

9 C ISTART  = STARTIN3  ADDRESS  IN  CORE  WHERE  THE  BLOCK  IS  T 0 BE  TRANSFERRED 

10  C '•ROM. 

11  : N3K00T  = NO.  OF  THIS  BLOCK  IN  THE  FILE.  NBKOUT  = 1 IS  THE  FIRST  BLOCK 

12  C NO.  IN  THE  FILE. 

13  C LSFILE  : L03ICAL  SYSTEM  FILE  NO.  (0-15J. 

lA  C ISTAT  : STATUS  RETURNED  TO  USER.  ISTAT  = 0 INDICATES  NO  ERRORS. 

15  C ISTAT  = 1 INDICATES  AN  ERROR  OF  SOME  KIND. 

16  C 

IT  C 1108  DISK  VERSION 

18  C 

19  C RESTRICTIONS  ON  THIS  VERSION  OF  BLKOUT 

20  C 

21  C THE  STATUS  ISTAT  RETURNED  TO  THE  USER  HILL  ALWAYS  BE  ZERO  SINCE  THE 

22  C FSTHT  ROUTINE  DOES  NOT  RETURN  ANY  STATUS  INFORMATION.  FSTWT  HAS  XT’S 

23  C OWN  ERROR  MESSAGES. 

2A  C 

25  NSECPa:(NHD3LK»27)/28 

26  NBKMlrNBKOUT-l 

27  CALL  FSTHT  fNHDBLKt  ISTART*  NSECOB.  NBKMl * 0*  LSFILEI 

28  ISTATrO 

29  RETURN 

30  END 
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FAS. CASTS 

SUSROUTINC  CASE1(G1.S2.G3.  CTO’' . CLDl . CLD2»  CL03 ) 

C 

C ROUTINT  TO  CALCULATE  THREE  LAYERS  OF  CLOUD  COVER  GIVEN  TOTAL 

C CLOUD  COVER  ASSUMING  LAYERS  ARE  COMPLETELY  RANDOM. 

C G1  = probability  OF  RANDOM  CLOUD  IN  LAYER  1 

C G2  = PROBABILITY  OF  RANDOM  CLOUD  IN  LAYER  2 

C G3  = probability  OF  RANDOM  CLOUD  IN  LAYER  3 

C CTOT  = TOTAL  CLOUD  COVER  (RANGE  0-1) 

C CDLl  = CLOUD  COVER  OF  LAYER  1 (RANGE  0-1) 

C CDL2  = CLOUD  COVER  OF  LAYER  2 (RANGE  C - -1 ) 

C C0L3  = CLOUD  COVER  OF  LAYER  3 (RANGE  0-1) 

C 

C INITIALIZE  INTERMEDIATE  CLOUD  COVER  AND  INTERMEDIATE  ''ACTORS. 

C 

CLO=CTOT 

GP=31»G2«33 

GS:G1+32*G3 

GSP:51 •G2+C1 •G3*G2»G3 

C USE  ITERATIVE  SOLUTION. 

C 

1 FUNCLD=GP»CLD*»3-GSP»CL0««2«GS»CL0-CT0T 
0ELFUN=3.  ‘GP^a  0*»2-2.»OSP  •CLD»OS 

IF (ABS(OELFUN). ST. 0.0001)  SO  TO  2 
0ELFUN:SIGN (0 .0 001 f DEL  FUN ) 

2 OELCLD:FUNCLD/OELFUN 
CLO=CLD-OEL CL D 

C 

C REITERATE  IF  CHANGE  IN  INTERMEDIATE  CLOUD  COVER  UNACCEPTABLE. 

C 

IF( ABS( 0ELCLD).GT.0.01)  GO  TO  1 
C 

C calculate  layered  CLOUD  COVER. 

c 

CL01=G1»CLD 

CLD2:32*CLD 

CL03=G3»CL0 

RETURN 

C 

ENTRY  CASE2( G1 >S2  tCTOT tCLDl •CL02I 
C 

C ROUTINE  TO  CALCULATE  TWO  LAYERS  OF  CL(?UO  COVER  GIVEN  TOTAL 

C CLOUD  COVER  ASSUMING  LAYERS  ARE  COMPLETELY  RANDOM. 

C G1  = PROBABILITY  OF  RANDOM  CLDUO  IN  LAYER  1 

C G2  = PROBABILITY  OF  RANDOM  CLOUD  IN  LAYER  2 

C CTOT  = total  cloud  COVER  (RANGE  0-1) 

C CLOl  = CLOUD  COVER  OF  LAYER  1 (RANGE  C - 1) 

C CL02  = CLOUD  COVER  OF  LAYER  2 (RANGE  0-1) 

C CALCULATE  INTERMEDIATE  FACTORS. 

0P=G1*32 

GS=31*C2 

CLO  = ( GS-SORT(  GS  t*!- A.  •GP*C  TO  T)  ) / 12.»  G’l 
C CALCULATE  LAYERED  CLOUD  COVER. 
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CL01=31»CLD 

CL02rG2»!:L0 

RETURN 

ENTRY  C ASE 3{ 02 f 63 f CL OWtC TOT fCLOl *0602 tCL03t REDUCE » 

C ROUTINE  TO  CLACULATE  THREE  LAYERS  OF  CLOUD  COVER  GIVEN  LOWEST 

C CLOUO  COVER  AN  0 TOTAL  CLOUD  COVER  ASSUMING  A TCU  IN  LAYERS 

C AND  2 WITH  RANDOM  LAYERS  2 ANO  3 

C 02  = PROBABILITY  OF  RANDOM  CLOUD  IN  LAYER  2 

C 03  = PROBABILITY  OF  RANDOM  CLOUD  IN  LAYER  3 

C CLOW  r CLOUD  COVER  OF  TCU  (RANGE  C - II 

C CTOT  = total  CLOUD  COVER  (RANGE  0-11 

C CLDl  : CLOUD  COVER  OF  LAYER  1 (RANGE  0-11 

C CLD2  : CLOUO  COVER  OF  LAYER  2 (RANGE  0-11 

C :L03  = CLOUD  COVER  OF  LAYER  3 (RANGE  0-1) 

C REDUCE  : TCU  REDUCTION  FACTOR 

C 

C CALCULATE  INTERMEDIATE  FACTORS. 

C 

GS:(G2*03)«(1.-CL0W) 

GP=G2»G3«(1.  -CLOW) 

CLO:(  GS-3SRT(  GS  *»2- 4*  3P  • ( C TO  T- CLOW)  ) ) 7 ( 2.  *GP) 

C 

C CALCULATE  LAYERED  CLOUO  COVER 

CLOlrCLOW 

CL02=CL0W*RE0UCE*(1.-CL0W»REDUCE)*G2»CL0 

CL03=33»CLD 

RETURN 

C 

ENTRY  CASE4 (3 2f  G3. CLOW. CTOT t CLDl t CL02. CL03. REDUCE) 

C 

C ROUTINE  TO  CALCULATE  THREE  LAYERS  OF  CLOUD  COVER  GIVEN  LOWEST 

C CLOUO  COVER  ANO  TOTAL  CLOUD  COVER  ASSUMING  A C8  IN  LAYERS 

C 1.  2.  ANO  3 WITH  A RANDOM  LAYERS  2 ANO  3. 

C 

C 32  : PROBABILITY  OF  RANDOM  CLOUO  IN  LAYER  2 

C G3  : PROBABILITY  OF  RANDOM  CLOUD  IN  LAYER  3 

C CLOW  = CLOUO  COVER  OF  CS(RAN3E  0-1) 

C CTOT  = TOTAL  CLOUO  COVER  (RANGE  0-1) 

C CLDl  r CLOUD  COVER  OF  LAYER  1 (RANGE  0-1) 

C CLD2  = CLOUD  COVER  OF  LAYER  2 (RANGE  0-1) 

C CLD3  = CLOUD  COVER  OF  LAYER  3 (RANGE  01-  1) 

C REDUCE  = CB  REDUCTION  FACTOR 

r* 

C CALCULATE  INTERMEDIATE  FACTORS 


CS:(3r*G3) •( 1. -CLOW) 

GP  = G2«33» ( 1 CL  OW) 

CLO:(3S-SORT (5 S» *2-4 . .GP* ( C TOT-CLOW ) I I / ( 2. ‘GP I 

C CALCULATE  LAYERED  CLOUD  COVER 

C 

CLDlrCLOW 

CL02 = CL 0W.REDUCE*(1. -REDUCE. CL 0W)*G2.CLD 
CLd3:CL0W»RE OUCE* »2. ( I .-ClO W» REDUCE**2) • G3.CLD 
RETURN 
C 
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LCMENT  CASES 

r 

i 

lie 

ENTRY  CASESf 02  t33  tCLOWiCTOT .CLOl »CL02 iCL03 > 

1^ 

119 

120 

C 

ROUTINE  TO  CALCULATE  THREE  LAYERS  OF  CLCUD  COVER  GIVEN 

LOWEST 

121 

CLOUD  COVER  AND  TOTAL  CLOUD  COVER  ASSUMING  LAYERS 

ARE 

i: 

122 

c 

COMPLETELY  RANDOM. 

i' 

123 

c 

129 

c 

G2  = PROBABILITY  OF  RANDOM  CLOUD  IN  LAYER  2 

1' 

125 

G3  = PROBABILITY  OF  RANDOM  CLOUD  IN  LAIYER  3 

i' 

126 

c 

CLOW  = LOWEST  CLOUD  COVER  (RANGE  C - U 

127 

c 

CTOT  = TOTAL  CLOUD  COVER  (RANGE  0-17 

P 

128 

c 

CLOl  = CLOUD  COVER  OF  LAYER  1 (RANGE  0-1) 

N 

129 

c 

CL02  = CLOUD  COVER  OF  LAYER  2 (RANGE  0-1) 

130 

c 

CL03  = CLOUD  COVER  OF  LAYER  3 (RANGE  C - 1) 

V- 

131 

F» 

w 

132 

c 

CALCULATE  INTERMEDIATE  FACTORS. 

'■ 

133 

139 

GS=(32*G3).(l.-CLOW) 

135 

GP=G2»03»(1 .-CLOW) 

136 

CL0  = (3S-SQRT  <6 S« *2-9 . .GP* (C TOT-CLOW  7 ) 1 /(  2.*GP 1 

137 

c 

138 

c 

CALCULATE  LAYERED  CLOUD  COVER 

139 

c 

' 

190 

CL01=CLOW 

191 

CL02=G2*CL0 

192 

CL03:33«CLC 

193 

RETURN 

199 

c 

195 

ENTRY  CASEG)CL0W.CTOTtCL01  .CL027 

196 

c 

197 

c 

ROUTINE  TO  CALCULATE  TWO  LAYERS  OF  CL3UD  COVER  GIVEN  LOWEST 

198 

c 

CLOUD  COVER  AND  TOTAL  CLOUD  COVER  ASSUMING  LAYERS  ARE 

199 

COMPLETELY  RANDOM. 

I'j 

150 

c 

CLOW  = LOWEST  CLOUD  COVER  (RANGE  0-1) 

151 

c 

CTOT  = total  CLOUD  COVER  (RANGE  0-17 

1 1 

. ; 

152 

c 

CLOl  = CLOUD  COVER  OF  LAVER  1 (RANGE  0-17 

, 

153 

c 

CL02  = CLOUD  COVER  OF  LAVER  2 (RANGE  0-17 

i. 

159 

155 

c 

CALCULATE  LAYERED  CLOUD  COVER 

156 

; 

157 

CL01=CL0W 

1 

158 

CLD2=(CT0T-CL0W)/(1.-CL0W) 

159 

RETURN 

160 

END 
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SUBROUTINE  CFEXECfTASKiTIME .OBSRPT.XO fYO.XLNtVLNt LAST. TYMOLO. DSP t 
• OlST.TYMC.ISSa.NSSa.NBKOUT  .ISENT) 
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THIS  ROUTINE  IS  THE  INTERFACE  BETWEEN  THE  EXPERIMENTAL  PROTOTYPE 
AUTOMATIC  METEOROLOSICAL  SYSTEM  (EPAKS)  AND  THE  CLOUD-FOC  ANALYSIS 
SYSTEM  I CFAS)  . IN  ADDITION  CFEXEC  DIRECTS  THE  INTERPRETATION  OF 
SURFACE  AND  UPPER  AIR  OBSERVATIONS  AND  REPORTS  (OBS/REP)  AND  THE 
CREATION  OR  UPDATES  OF  THE  CLOUD  FOG  DATA  BASE  ICFDRI. 


INPUT  DATA  (FORMAL  PARAMETERS) 


TASK  : TASK  REQUESTED  BY  EPAMS 

1 : SET  UP  THE  OBS/REP  STORAGE  FILES 

2 = INPUT  OBS/REP 

3 = CREATE  A NEW  CFD3 

M : UPDATE  THE  LATEST  CFDB  ON  FILE 
TIME  = REFERENCE  TIME  OF  CF03  CREATION  OR  UPDATE 
OBSRPT  = OES/REP 

XO  : DISTANCE  EAST  FROM  XREF  OF  THE  LOWER  LEFT  HAND  CORNER  OF  THE 
SUB-WINDOW  IN  THE  CF03  TO  BE  UPDATED.  KM. 

YO  = DISTANCE  NORTH  FROM  YREF  OF  THE  LOWER  LEFT  HAND  CORNER  OF  THE 
SUB-WINDOW  IN  THE  CFDB  TO  BE  UPDATED.  KM. 

XLN  = EAST-WEST  LENGTH  OF  UNDATED  SU3-WIN00W.  KM. 

YLN  = NORTH-SOUTH  LENGTH  OF  UPDATED  SUB-WINDOW.  KM. 

LAST  = SEQUENCE  NUM3ER  OF  THE  LAST  09S/REP  STORED. 

TYMOLO  : TIME  Qf  OLDEST  OBS/REP  TO  BE  USED  IN  A CREATION  OR  UPDATE 
DSP  = MAXIMUM  DISTANCE  BETWEEN  OBS/RE’  TO  3E  COMBINED  INTO  A 
BEST  REPORT.  KM. 

DIST  = DISTANCE  CONSTANTS  IN  WEIGHTING'  FUNCTION.  KM. 

DIST(l)  USED  WHEN  CONVECTIVE  CLOUDS  ONLY  PRESENT. 

DISK  2)  USED  when  CONVECTIVE  AND  MIDDLE  CLOUDS  ONLY  ARE 

PRESENT  OR  WHEN  SHOWERY  TYPE  PRCIPITATION  PRESENT  OR 
PAST  WEATHER. 

OISTd)  USED  FOR  ALL  OTHER  CASES. 

TYMC  = TIME  CONSTANTS  IN  WEIGHTING  FUNCTION.  MINUTES. 

TYMC(l)  USED  WHEN  CONVECTIVE  CLOUDS  ONLY  PRESENT. 

TYMC«2)  USED  WHEN  CONVECTIVE  AND  MIDDLE  CLOUDS  ONLY  ARE 

PRESENT  OR  WHEN  SHOWERY  TYPE  PRCIPITATION  PRESENT  OR 
PAST  WEATHER. 

TYMC(3)  USED  FOR  ALL  OTHER  CASES. 

ISSO  : search  square  sizes.  NO.  OF  GRID  POINTS. 

NSSQ  = NO.  OF  SEARCH  SQUARES  USED  IN  ANALYSIS. 

NBKOUT  = BLOCK  NO.  IN  THE  CFOS  FILE  TO  WHICH  THE  CREATION  OR 
UPDATE  IS  TO  BE  TRANSFERRED. 

IDENT  r ten  WORDS  OF  USER  SUPPLIED  IDENTIFICATION  INFORMATION  THAT 
PRECEEDS  THE  CLOUD-FOG-WEATHER  DATA  ON  THE  FILE. 


DATA  statements 


XREF  = 


YREF  = 


EAST-WEST  UTM  GRID  COORDINATE  OF  THE  LOWER  LEFT  HAND  CORNER 
OF  THE  CFDB  WINDOW.  KM. 

NORTH-SOUTH  UTM  GRID  COORDINATE  OF  THE  LOWER  LEFtHAND  CORNER 
OF  THE  CFDB  WINDOW.  KM. 

CMRD  = CENTRAL  MERIDIAN  OF  THE  WINDOW.  DEGREES  (♦  IF  WESTERN  HEMI- 
SPHERE, - IF  ESTERN  HEMISPHERE) 

LSfILE  = L03ICAL  DEVICE  NO.  OF  TEMPORARY  STORAGE  FILE  USED  IN 
•C0M03R’. 
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NC^F  r logical  SYSTEM  FILE  NO.  OF  THE  CF09  FILE. 

ILPR  = DEVISE  NO.  CF  LINE  PRINTER 

ICPR  : LOGICAL  DEVICE  NO.  OF  CONSOLE  “RINTER. 

GROPH  = CFD3  GRID  POINT  HEIGHT#  METERS. 

MN9R  : MINIMUM  NUMBER  OF  BEST  REPORTS  REQUIRED  TO  CALCULATE  CFOB 
PARAMETERS  AT  GRID  POINT. 


PARAMETERS 

GRO  = CFDB  GRID.  <GRID  POINT  SPACING#  KM.) 

LNTHX  r EAST-UEST  LENGTH  OF  THE  CFDB  WINDOW.  KM. 

LNTHY  = NORTH-SOUTH  LENGTH  OF  THE  CFOB  WINDOW#  KM. 

N03R  : MAXIMUM  NUMBER  OF  OBS/REP  THAT  CAN  BE  USED  IN  A CREATION 
OR  UPDATE. 

OBS/REP  INPUT  ELEMENTS 


IX  r X DISTANCE  OF  OBS/REP  SITE  FROM  TXREF#  HECTOMETERS. 
lY  : Y DISTANCE  OF  OBS/REP  SITE  FROM  I-YREF.  HECTOMETERS. 

IZ  : OBS/REP  SITE  ELEVATION  ABOVE  MEAN  SEA  LEVEL#  METERS. 
ITIME  : TIME  OF  OBS/REP  (O-IRMC) 

ITYPE  = TYPE  OF  OBS/REP 

1 r AIRWAYS#  -1  IF  A SPECIAL. 

2 = METAR#  -2  IF  A SPECIAL  (SPECI) 

3 = SYNOP 

4 : UPPER  AIR  (RAOBI#  -M  IF  A SPECIAL 

5 = AFGWC  30-NEPH  OUTPUT 

FOR  EXPLANATION  OF  REMAINING  OBS/REP  INPUT  ELEMENTS  CONSULT 
LISTINGS  OF  SUBROUTINE  SFOINT  IF  A SURFACE  OBS/REP  OR 
SUBROUTINE  UADINT  IF  AN  UPPER  AIR  OBS/REP. 

CFDB  PARAMETERS  DETERMINED  FRDM  OBS/REP. 


lOBC  = SEQUENCE  NO.  OF  OBS/REP. 

IVALU  = CFDB  INFORMATION  VALUE  OF  THE  OBS/REP 
NTCLC  = total  CLOUD  COVER#  (DO  TO  lOD) 

NCEIL  = HEIGHT  OF  CEILING  LAYER  (AGLJ#  OEKAMETERS.  MINUS  IF  A 
VARIABLE  CEILING.  LAST  DIGIT  OF  NCEIL  INDICATES  THE 

method  by  which  the  ceiling  was  determined. 

1 = MEASURED 

2 : AIRCRAFT 

3 = BALLOON 

4 : RADAR 

5 = ESTIMATED 

6 = INDEFINITE 

NVV  = PREVAILING  SURFACE  VISIBILITY#  METERS.  MINUS  IF  VARIABLE. 
MIN3AS  = HEIGHT  OF  BASE  OF  LOWEST  CLOUD#  OEKAMETERS. 

MAXTOR  = HEIGHT  OF  TOP  OF  HIGHEST  CLOUD  THAT  COULD  BE  DETERMINED 
FROM  OBS/REP  ELEMENTS#  OEKAMETERS. 

MSPWE  = MOST  SIGNIFICANT  PRESENT  WEATHER  ELEMENT.  (WMO  CODE  4677) 
LCOVtl)  = PERCENT  CLOUD  COVER  IN  THE  CFOB  LAYERS.  tCO  TO  IDO). 

CFDB  LAYERS 

LAYER  BOTTOM  TOP 

1 0 FEET  C METERS  ISC  FEET  45  METERS 


112 

C 

1 

0 FEET 

C METERS 

ISC  FEET 

45 

113 

c 

2 

150 

45 

30C 

91 

114 

c 

3 

300 

91 

OOC 

1S3 

115 

0* 

4 

eoo 

193 

lOOC 

305 

116 

c 

5 

1000 

3P5 

2000 

610 

117 

c 

6 

2000 

610 

3500 

1C67 

I-ll 
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113 

C 

7 3500  1067  5000  1529 

f 

119 

C 

8 EOCC  1529  650C  1981 

120 

c 

9 6500  1981  10000  3098 

121 

!-] 

122 

1 

123 

INTEGER  TASK  »TIM E t OBSRPT . S< YC OV t CElLN G i CL03 AS .CLOTO P »UE ATH R t VISIB . 

1 

12t 

• GR0PH.3R9PV  tT YM OLD t CFASO 

125 

i 

12E 

parameter  0RD=2  5tLNTHXr2CC  iLNTHY:200tI‘?=LNTHX/0R0»  JP:L  NTHY  7GR0. 

h 

127 

* ICr33rlC+ «IP»JP»1SI t IJPrlP«JP 

1 

128 

parameter  N03R=G00 

I 

129 

130 

COMMON  /MAP/XREFtYREFf  CMR0*LNXfLNY.GR3PS»0R0»-ttIP.  JO) 

131 

COMMON  /OBSREP/IX iIY.IZtITIKE  tIC3C tITYPE  f I V ALU t NTCLC t NCE IL »N VV . 

132 

• MIN3A5fMAXT0PtMSPWEtL  CO  V ( 9 ) t ICL  » ITSC  t ICMt  TCH.  I CTS  « 10  ) t NM  E A ( 7 > t IPUi 

133 

•NCU5E(99» 

13«l 

COMMON  /INT03R/ IN03S< 23tN0 BR » 

d 

135 

COMMON  /CF03 / J3ENT<lC»tSKYC0V(IPiJP»  tCE ILNG ( TP . JPI  r VISIB ( IP tJP 1 t 

n 

136 

• CLODASI  IP  tJP)  tCLOTOPI  IP  f JO  >f  WEATHR  (IP*  JP)  t LA  Y C OV  1 1 Pt  JP  • 9 ) 

137 

COMMON  /CUTPT/I3EGtIENDt JBEGf JEHO 

, 

J 

138 

DIMENSION  Oa3R?T(193l *3RDP  Vt  r>  t J?»15J • IN09EL « 9 9 » » K 03R 1 193 1 1 OIST ( 3 1 

139 

••TYMC( 31 .1530(51 fLC0VAI9).LC0VB(9»tCFASD(ICrO31 tlDCNUlOl 

190 

191 

equivalence  (KCSR(l)  flXii  CFASDC  ID.GRDPVd.l.li  tSKYCOV(  1.11  1 

192 

193 

DATA  XREF/-1 50C. /.YREF/3900./.CMRD/9D./ 

: 

199 

DATA  CRDPH/TJP.O/ 

195 

DATA  LSFILE/3/.NCFF/9/ 

196 

DATA  TLPR/5/ 

197 

DATA  MISS/-32768/ 

1 

198 

DATA  MN3R/1/ 

I**® 

; ■ 

150 

GO  TO  ( 13.20.70.701 .TASK 

151 

c 

t ' 

152 

COME  HERE  TO  INITIALIZE  AND  SET  UP  OBS/RE?  STORAGE  ^^ILES 

' 

153 

c 

■ ■ 

159 

10  CALL  BEGIN 

155 

lOBCrC 

' ■ 

156 

RETURN 

157 

c 

158 

f* 

COME  HERE  TO  INTERPRET  AND  FILE  AN  09S/REP. 

159 

c 

160 

20  DO  25  K=1.193 

i . 

161 

25  KOBR(KI=OB5RPT(K» 

162 

I09C=LAST*1 

163 

NTR=IABS(ITYPE  » 

i 

169 

CO  TO  t 30.30. 30.90. 50). NTR 

165 

c 

i 

166 

c 

COME  HERE  TO  INTERPRET  A SURFACE  09S/REP 

167 

c 

168 

30  CALL  SFOINT 

' 

169 

C-0  TO  60 

170 

; ■ 

171 

c 

COME  HERE  TO  INTERPRET  AN  UPPER  AIR  OBS/REP. 

172 

c 

173 

90  CALL  UAOINT 

d 

179 

GO  TO  60 

175 

c 

1 

176 

c 

COME  HERE  TO  PROCESS  CLOUD-FOG  DATA  FROM  THE  AFGWC  30-NEPH  OUTPUT 

1 

( , 

1. 
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177 

178 

50 

179 

60 

18C 

131 

182 

133 

184 

65 

185 

18G 

70 

187 

188 

80 

189 

c 

190 

c 

191 

192 

193 

194 

195 

c 

196 

197 

198 

199 

200 

90 

201 

202 

203 

m 

20  4 

205 

206 

207 

2000 

208 

C 

209 

- 

210 

c 

211 

212 

213 

ICO 

214 

c 

215 

f* 

216 

217 

219 

219 

c 

220 

110 

221 

222 

C 

223 

3 

224 

225 

C 

226 

C 

227 

c 

228 

C 

229 

230 

231 

120 

232 

233 

234 

130 

235 

140 

CALL  4F0INT 
DO  G5  K:I .M4 
09SRPT (KlrKOERCK) 

CALL  ST0REC«03SRPTI 
LASTrlOBC 

IFILAST  .EQ.  NOBRI  LASTiO 

RETURN 

N09=0 

DO  80  K=1.1D 
JDENTlK):rDENT(K> 

INCODE=l 


INSURE  THAT  TYMOLD  IS  NOT  MORE  THAN  720  MINUTES  (12  HOURSI  PRIOR 
TO  TIME.  RESET  TYMOLO  TO  TIME-7Z0  I-F  NECESSARY. 

lEtTIME  .GT.  TYMOLO)  30  TO  30 

ITEMPrTYMOLO 

TY,MCL3=TYM0LD-1  440 

ID  I'^rTIMC-TYMOLD 

IF(  TYMOLD  .LT.  0)  T YMOL D = I TEM’ 

I'^CIDIE  .LE.  72D)  GO  TO  ICO 
TYM0LD:TImE-720 

ic (TYMOLD  .LT.  0)  TYM0LD=14 40+TYM0LD 
IPRT=ILPR 

URITE( IPRTt 2030  ) lOIE. TYMOLD 

FORMAT)’  TIME  DIFFERENCE  BETWEEN  REFERENCE  "IME  AND  TIME  OF  OLDEST 
* USEADLE  OBS/REP  = ’flTf’  MINUTES’/’  TIME  OE  OLDEST  USEABLE  03S/RE 
«P  RESET  70  •»r4r’  MINUTES  WHICH  IS  720  MINUTES  PRIOR  TO  REFERENCE 
•TIME’//) 

RETREIVE  09S/REP  IN  REVERSE  CHRONOLOGICAL  ORDER  FROM  TIME  TO 
TYMOLO 

CALL  RETOBRdNCOOEiTIMEiINOBELfNOMORE  tTYMOLD  ) 

INC00E=2 

JUMP  TO  120  !'•  THERE  ARE  NO  MORE  09S/REP  IN  THE  DATA  BASE. 
IF(N0M0RE  .EO.  1)  GO  TO  120 

nob:nob*i 

DO  lie  NEL:1*  23 

IN03S( NELtNOB>=INOBEL<NEL) 

JUMP  3ACK  TO  ICO  AND  ATTEMPT  TO  RETRIEVE  ANOTHER  03S/REP  IF  THE 
MAXIMUM  USEADLE  NUMBER  HAS  NOT  BEEN  REACHED. 

IF(N0B  .lT.  N03R)  GO  TO  100 

DETERMINE  THE  LOWEST  ALTITUDE  IN  THE  LIST  OF  OBS/ REP  AND  GRID 
POINTS 

IHREF=32CC0 
DO  130  N:lfN09 

iHREFrMINO (IHREF.INOBSCS.N)  ) 

00  140  1=1. I? 

DO  140  JzlfJP 

IH.REF-FMINCC  IH  RE  Ft  GROPH 1 1,  J ) ) 
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CrAS  SUSPROCRAft  ELEMCNT  CFEXEC 


Z3S 

2 

237 

c 

RrrrRilNCE:  C5ILIN5»  minimum  base  of  cloud#  maxihum  top  of 

CLOUDS# 

238 

c 

AN3  THE  CrOB  LAYERS  TO  THE  REFERENCE  ALTITUDE#  IHREF. 

239 

c 

243 

DO  190  N:1#N03 

241 

DO  160  M=0#13 

242 

IF( IN09S(  M#N)  .EQ.  MISS)  GO  TO  160 

24  3 

HGT-H-B 

244 

GO  TO  t 145. 150# 150# 150#16r )#MGT 

24  5 

145 

ISYN:2 

246 

IF( INOBSI  9# N)  .LT.  0)  ISYN=1 

247 

MTMPrIA8S(IN0BS(9#N) ) 

243 

MDSrMODt  MTMP.IC ) 

249 

MTMP:MTMP/19 

253 

INOBS( 9.N 1=  t(HTMP#10)*lN09SI 3#  N)- IHREF)/ 13 

251 

I-  (IN0BS(9#N  ) .LT.  0)  IN0PSt9#N)=C 

252 

INOBSI 9fN):  It 1C»IN0BSJ9#N ) )*M03)» ((-!)•• ISYN) 

253 

GO  TO  160 

254 

155 

IN0  3SIK»N)=lt  10  *rN0  9S  IM  .N  ) ) ♦•  IN033  1 3.  N)  - IH’EF )/ 10 

255 

I'' (iNOBStM.N  I .LT.  0)  INOBSlM#N)=C 

256 

160 

CONTINUE 

257 

DO  170  M-14#22 

258 

MCT:M-13 

259 

LC0V3I K3T)=IN0B3(M#N) 

263 

173 

LCOVAIHGT )=MISS 

261 

IHB:IN0BS( 3#  N) 

262 

CALL  MVLCOV (LCOVA.L  CO V3# IHREF# IH3) 

263 

DO  180  M:14#22 

264 

M5T:M-13 

265 

18C 

INOBSf M#N):LCOVAf MGT) 

266 

190 

CONTINUE 

267 

268 

• 

RANK  03S/REP  WITHIN  ’DSP*  KM.  OF  A GIVEN  033/REP.  RESOLVE 

: CONFLICT 

269 

c 

ING  INFORMATION  IN  THE  SAME  CFOB  ELEMENTS  OF  THE  SEVERAL 

OSS/REP 

270 

w 

ON  THE  BASIS  OF  RANK  AND  COMBINE  NON  CONFLICTING  INFORMATION  INTO 

271 

c 

A BEST  OBS/REP  AT  THE  SITE  OF  THE  GIVEN  OBSREP. 

272 

273 

CALL  COMOBRtNOB#DSP»TlME#LSFILE) 

274 

M3T=TASK-2 

275 

CO  T0(200#210) #MGT 

276 

c 

277 

c 

COME  HERE  TO  CREATE  A NEW  CFDB 

278 

A 

W 

279 

200 

I8E3:l 

283 

IEND=IP 

281 

J9E3=1 

292 

JENO=JP 

283 

GO  TO  220 

284 

285 

c 

COME  HERE  TO  UPDATE  AN  EXISTING  CLOUD  FOG  DATA-BASE. 

286 

28  7 

210 

IXOrXO 

288 

I9EC=IX0/GR0»1 

289 

IXO:XO*XLN 

293 

IEND=IX0/GRD*1 

291 

IXOrMOD IiXO.GRO) 

292 

IFCIXO  .3T.  0)  IEN0  = IEND#-1 

29  3 

JY0=Y0 

294 

J3EC=JY0/0RD*1 

1-14 


CFAS  SUBPROGRAM  CLSH^NT  CFCXE; 


295  JYO=YO*YLN 

296  JEN3:JY0/:R3 *X 

297  JYO=MOOC JYO «3RD J 

298  IFCJYO  .GT.  0)  JENDrUSNO*! 

299  IFdENO  .GT.  IP)  IENO=IP 

30C  IFCJEND  .CT.  JPI  JENOrJP 

301  229  CALL  CFM AP( 13  EG t TEN D. J3EG» JEN9 1 GIST * T YMC f ISS 3 • NSS Q tMN3 R.  TIME. NOB ) 

3C2 

3C3  C REFERENCE  CREATED  OR  UPDATED  CTDB  PARAIMETER3  TO  GROUNO  LEVEL. 

3C9 

3C5  DO  230  IrTBEGrIEND 

306  00  280  J=JBEG*JEND 

307  DO  250  M=1.G 

308  IF  tSRDPVd  tJ.M  ) .EG,  MISS)  CO  TO  250 

309  GO  TO  ( 25Ct  230t  250. 2<i0t2<«C  f250)f  9 

310  230  ISYN=2 

311  1F< GRDPVC It Jt 2)  .LT.  0)  ISYMrl 

312  MTMP=IA8S(GRDPVIIf J.2) ) 

313  GRDPV(  ItJ  t2  ):n  HTMP*10)«-IHREF-GRDPHII.  Jl  I/IC 

319  IF  (GRDPVd  tjt2  ) .LT.  OJ  GR3  P V ( 1 1 J 1 2 ) =0 

315  OROPVC ItJ  t2  jrGRDPV) It Jf2)»  ( ( -1 ) •• ISYNh 

316  GO  TO  25C 

317  290  CRDPVI  ItJ  tM  ):d  GRDPVC  It  JtM)»10)  ♦IHREF-GRDPHlIt  Jl  )7  10 

318  IFCGRDPVdtJtM)  .LT.  0)  GRD PV (I t Jt M 1=0 

319  250  CONTINUE 

320  00  260  M:7tl5 

321  MY=M-G 


322 

323 
329 

325 

326 

327 

328 

329 

330 

331 

332 

333 
339 

335 

336 

337 

338 

339 

390 

391 


LCOVBC  MY  ) = CROPV(I t JtM» 

260  LC0VAIMYI=MISS 
IHArSRDPHdt  J) 

CALL  MVLCOV  (LCO  VAtL  CO  VO  t IH  At  IHR  EF) 

DO  270  M:7tl5 
MYzM-6 

MTMPZMOO (LCO VA (MY  1 15  I 

IF( MTMP  .NE.  1)  GO  TO  270 

LCOVA(MY)=-(LCOVA(MY)-1) 

270  GRaPV(ItJtM):LCOVA(MYI 

C INSURE  MINBAS  LESS  THAN  MAXTO®. 

IF( GROPV( It JtS)  .LT.  CRDPV(ItJt9)»  GR9 P V ( I t J t 5 > =GRO?V ( I t Jt 9 ) 

: INSURE  HAT  TOTAL  SKY  COVER  NOT  LESS  THAN  THE  CLOUO  COVER  IN  ANY 

C LAYER. 

DO  275  M:7tl5 

I'^(  GROPVI  It JtMl  .eg.  MISS)  GO  TO  275 


392 

393 
399 
395 
39  6 

397 

398 

399 

350 

351 


MTMPriABSiGRDPVd  t Jt  M)  ) 

GROPV(  It  J tl  IZMAXCICRDPVdt  Jt  1)  t MTMP) 

275  CONTINUE 
280  CONTINUE 

C OUTPUT  CREATED  OR  UPDATED  CFD9. 

NUDBLKZICFOS 

CALL  9LK0UT(NW03LKtCFAS0tN3K0UTiNCrF tISTAT  I 
RETURN 


352 


END 
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CrAS  SUBPROGRAM  ELEMENT  CFLAY 


CL0U3-FO5»CFAS.CFLAY 


SV3RCUTINF  C FL AY t NBASE  t NTCP . M TNL AY iMAXL A Y 1 

ROUTINE  TC  '•INO  MINIMUM  AND  MAXIMUM  C''OB  LAYERS  INFLUENCED  BY 
CLOUD  LAYERS  CONSTRUCTED  FROM  03S/REP.  0 IS  RETURNED  IF  NO  CFOB 
LAYERS  ARE  AFFECTED. 

N3ASE  = BASE  IN  FEET  ABOVE  TERRAIN. 

NTOP  = TOP  IN  FEET  A30VE  TERRAIN. 

MINLAY  = MINIMUM  LAYER  ABOVE  TERRAIN. 

MAXLAY  : MAXIMUM  LAYER  ABOVE  TERRAIN 

DIMENSION  L EVEL  (lOJ 

DATA  level/ Dt 15  0*300.600.1000*  2000 . 3SD0 . 5000 . 6500. 10000 / 

ROUND  BASE  AND  TOP  TO  NEAREST  100  FEET. 

I3ASEr( t N3ASE *5 01/100 J. IOC 
ITOP:( (NTOP* 50 1/1001 *100 

RETURN  0 IF  BASE  ABOVE  MAXIMUM  LAYER. 

IF(I3ASE  .LT.  LEVELIICII  GO  TC  50 

MINLAYrO 

MAXLAY=0 

RETURN 


RETURN  0 IF  TOP  BELOW  MINIMUM  LAYER. 


50  IFCITOP  .3T.  LEVELdll  GO  TO  GO 
MINLAYrO 
MAXLAYrO 
RETURN 

FIND  MINIMUM  LAYER  ABOVE  TERRAIN 


60  DO  70  ILrl.lC 
LEVrll-lL 

IFdBASE  .GE.  LEVELCLEVll  50  TO  70 
MINLAYrLEV-1 
70  CONTINUE 

FIND  MAXIMUM  LAYER  ABOVE  TERRAIN. 
DO  80  LEVrl.S 

I'-(TTOP  .LT.  LEVELfLEVll  GO  TO  80 
MAXLAYrLEV 
80  CONTINUE 

return 

END 


BHOGtP  CFAS  SUBPROGRAM  ELEMENT  CFMAIN 


M 


:=ia+( I3tJ0«15) 

R T.'  3K  .TIYi  . TYMOL:  t CF  AS''  .'RrPV 
N /t:at/  jx.jYf j:.iTi'<:.T03:f iTY‘’:.:v.-.’.'jfT:L;.fj*'i..NVVf 

• rx A 3 . KAXTc  p. •'■;3ri;riLCov( ) iiCL  t I’cc  t "cy;  .i:h  ,r:T:  ( 

*:«'3  ,x»: . xpppi  IT T tiTs. n; , r;H .iHt'iX cc)  . xh:  (i: > t :th\! i; i I xcwTi  ::lcv 

• I r vTx:  I NCi's:  tsoi 

COMMON  /MAP/  >:'<Er*YSX"tO«PO 
rOMMCN  /OUIPT/XOrOtlilND  t JSXCt  JENO 

OX  MEN  CION  rjAT(l<(3).J0ATt:‘t'5)rXZ!C01.I»(3:)iITt:0)tX0CI30).0XXT(3) 
*.TYyc(3j.xsE2.f).crAco(:cF0  3i.cPDrv(X'"fj:»isi»:orM(iri.:i3Pi 
*.?(  30  .T(  3C  ( 30 

rouivALxr.'X  (ic  ' ( 1 1 ■ j;-  1 1 troA ; ( X3)  tic:  .IX(  i ) ) 1 1 xoat  1 03!  .no i i tX'' ( i 

• )!.!IXAT!'’3!.XC0CtXT!l))ttXCA’'(il3)FX0OlJI.(T0AT(:43).NRRL)t 

• (CFAOCD.XF.XPVd.ltXDtCFASOID.XOrNTdl) 

OAT  A mix:/- 3X70  3/ 

DATA  NCF"/4/ 

5 ST  A XPX- /- IS  XX ./i YRX-/ 39X0. /. CM?n/OC./ 

LA  CT:r 
'i  ? R T A 0 
NO  KXUT :C 

5 lESO  to. 1X0)  TAXX  .N»RT.TIMC 
ItOC  FORMA’'  (3110 

'/iRITC  { 0.  XC  nC  )T  AXK  ,N?RT  . TIME 


p XX.  oX  X4  I 5X  . •TIME:'  .X5) 


t?C  TC  ( 1 xr  .1  X )X:C  .XC'O  .TAE< 

10  00  XX  1:1.143 
XC  10  A”  (T  ):V*  SO 

RXAO  tO.lXOX) . J X. JY . JX. XTXMX.TTY^E. IVXS.NO 
M'^  OAX'YPX/IX 
XTYPErKOO  ( ITY  ?X  . lO 
MTrTA3S(ITYPEI 
00  TO  t 3X  . 3 0.  30  . 9X. IOC ) . MT 
30  X^fNPRT  .EG.  C;  00  TC  33 
WRX  Tl  t j . X..  'Xj  ) 
zees  '■ORMA’-t/l 

WRITE  ( 0. XX  17 ! J X. JY . JX. XTXME.ITY’E . IVIO .N 1 
2C1C  FORMAT  ( 4 X,  ' J X’  >0X  . • JY  ' . SX  . ' J2  • . G X . ’ I TXM.E  • .SX.  ’ITYPE  • . SX  . *1  VI S • . 6 X » 
» ’NO  '/7(  2X  .r  G.  r’X  ) / 1 
33  00  TC  ( 3S.  SX  .40. 00 .100  ) . M'" 

35  R'AO  (S.ICOO)  I CLO . rCLCV . IVISO 
X"  (NPFT  .re.  0 ) CO  TC  50 
XRT  TCI G .xcxo;  I CLO. XCLOV . ivroc 
xexe  F0nNAT!3X. *1  CL 0 • . 5 X . • X CLO V . 5 X . ’ I VI SC ' /3 ( XX .X G . XX I / 1 
00  TO  50 

40  RC  AO  (E.iroc)  its:  .NH  ,ICL  .XH.  XCM  .TCH  .T.^W 
I--(  NPRT  .70.  0)  CC  TO  SX 

WRITE  I C . 20  30  1 ITSC.NH.rCL.IH.XC.M.XCK.XrW 
XX  30  FORMA-'t  OX  .’  its:  7X  7X.  »XCL‘  . 3X.  ♦ XM’  .7X.  ' XOM'  .7X  10  K*  . 7X.  • IP 

• W’  /7  (XX.Io  .2  X)  /I 

50  R:A0  15.1003)  I NWEAtX) .1=1 .7) 

IMPRT  .EC.  C ) 0 0 TO  55 
WRIT"  (G.X033)  tNWEA(I) .1=1. 7) 

2C3  5 FORMAT  ( 2X.  ’N  WE  At  1 ) • . 3X  . 'NWEA  I X)  • . 3X  . •N'i.'EA  ( 3 ) » .3X.  'NKEAt  4 ) • ,3X  . ‘NWr 

• A (5)  • .3X.  'N  WEAI  G)  • . 3X.  'NWEAt  7)  VTt  3X.X.4. 3X)/) 
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y.AZN  PROCRAtf  Ei^yZNT  C^MAIN 


55  I<"(  MC  .:3.  0)  SOTO  110 

r-:AO  (5.1C1C)  ( NSd  I iICTSJ  U iIHSd  J tTTHNd  I flrl.N'S  > 

1510  rOOMA’CmiO) 

ir  l^rRT  0.  Cl  00  TO  lie 
. wo: :i ( 3 .2C4  0) 

2C<*C  FORMAT  (‘(Xi*N5’i9Xt**CTS*.PXi'rH5’  t3X.  ’ITH';’  / I 

W’l  Tr(C  .205  0 (NStT)  . :CT5tT  I.  IH5  (I)  . ITHMT)  .1  = 1 .NO 
2CEC  FORMAT ( 4 (OX. TC .4X n 
00  TO  110 

50  I'tNPFT  .:c.  0)  OC  TO  CE 
WTETC  (5.00031 

WRTTOrC . 20  00  I JX.JY. JO.rTIMO.ITYFr 

0050  '-;RMA^(  4X  . • JX  '.  3X.  'JY  •.  3X.  'JO* . OX.  ’IT’-Mt’.SX.  • ITYROVS  (OX  .:5.0X)X) 
6 3 1 = 0 
00  I=I-.l 

R'A:  (5.1000;  12(11  .TP(I  I. ITCH  .rood) 

2(T  1=FLCAT(  i: (T 1 )»1C. 
p ( :i='  LOA" (I  re  1 1 ».  1 

P(T  ) = A30(  M ") 1 
T(:i="LCAr(:T(ii!».i 
PK  T ;="LOAT  t:  00  d)  ) *.l 

i"((iR(r)  .or.  0)  .OR.  dF(i)  .CG.  Miosn  oc  t:  so 
NRRr=r 

I-  (NFRT  .re.  0 I 00  TO  IIC 
WRITE  (5.0070) 

00  70  roRMAT(''x.’::*.:cx.’iR’.irx.*iT’.icx,dDO*.icx.*2’.:ox.*p*.iix.’T' 
•iix  .’OOV  ) 

RITKb.OOeO)  ITOdl.IFdl.ITd).  rood). 2(1). •'dl. TCI). DDdl.r  = l. 
•NRRw) 

OCEO  FORMA’- (3X.  41  10  .4F12.0  ) 

00  TO  110 

ICC  if(npr7  .:o.  c)  so  to  iqe 

WROTE  (o.OGCS! 

WROTE  (5.0050)  JX.JY. JO. TTOME .ITYPE 

103  -I'AO  (5.  10  00  ) NTCL  O.N  irrr  .WV.  ;iIN3AS.  MAXT  OR  . MS'’-.:  . ( LCCV  ( T)  . :=1 . 9) 

r-  (nprt  ."  c.  : ) o o to  no 

■wr:te  ( 3 , 00  00 ) ntol  o.rjorio  .;:\,v .MiNOAE.MAXTOR.MSpw:  .(Lccv  ( :)  .1=1. 3) 

2C2C  FORMA’-  ( ox,  'NTOEO  • .EX  . 'NSETW  • . ex.  ’N  VV'  .EX  .’MINRAE’  .4  X.  •MAX-'C'”  .4X  . • 

• MOPWr  ' ,4X  , ’ LOO'.  ( 1)  ’ . 3X.  ’LOO-;  (2)  ’/3  (2X,  EG  .OX)  / / 2X.  • LCO'J  1 3)  ’ . 3X  , »LCO 
*•;  ( 4)  • , OX,  • LC  c;  (E  ) ’ .3X  , ’LCOV  (6  )’  . 3X  . ’LCC  V ( 7 ) ’ .3X  . ’LC  OV(C  ) • .3X  , ’LCOV 
»(  9)  ’/71  OX  ,r  5,  OX  )///  ) 

lie  00  IOC  J=l.:43 
100  JOA  T(  J1  =:".'.  T(  J) 

13C  CALL  OFE  xr  C(  -"AOX  , TIME  . J3AT,  XC  ,70  .XLN  . YLN  .L  AST.TYMOLO  .5SP  .CIST  .TYMC 

• .lEOS.N'ES, NS  MOOT, I DENT  1 
IF  (MF-  1 10 , 1C, 5 

000  RE'.O  (S.ICOR)  TIME, TY.XOLO  .NETS  , dOOl  d)  . :=1  . ‘.'EOS) 

WRITE  (G.OIOC'  TIME. TYMOLO. NOES, (lEEGd 1 .T=l .NSEGl 
0190  FCRKA’l  / OX,  ”■  'M  E • , EX,  ’TYMO  LS  ’ , EX,  ’NEEO  • ,4X  . ’ lEGG  ( 1 . 3X  . dEEG(  2 ) •. 

• 3-/,dEOC(r)’.3X.'I3EO(4)’/3(OX,rC,2Xl-/i 

R'-aO  (3,1003  ) OE'’ , (DIET  ( I ) , 1 = 1 , 31  , ( TYMS  ( 1)  , 1 = 1 .3) 

1C20  "CRMAT (5Fir. 1 ) 

WRITE  (G.OllO)  3ER , (OTET ( r 1. 1=1 ,3)  . (TYMS' 1)  .1  = 1 ,3) 

211C  FORMAT(/EX,'DSP’.CX,’OI3T(l)',5X,’CI5T(2)’.5X,»CIET(3)’.EX.»fYMC(; 
•)’.5X.’TYM:(2)’.SX,’TYM;(3)V7(2X,F3.1,2X)/) 

IR  (TAEK  .EG.  3 ) SS  TC  OEC 
RE40  (5,1C00)  XO.YO.X-.N.YLM 
WRITE  (G.OIOC)  XC  .YO.XL.N.YLK 

2123  FORMAT(/5X.’XO',10X.’YO’.9X,’X'.N’,9X,*YL‘(V4(2X.FB.1,2X)) 


.“AIN  program  ELTM-NT 


;."KAIN 


! NOXOUTrNOKOUT*: 

CALL  CPEXECf TAEK.TIKE . JDATt  XO . YO i XLN . YLN .L AST t T YMOLO .0 EP tCIST t TYKC 
•*ICEOiN$EGi NEKOUTf lOENT 1 

r;WD3LKrIC!-C3 

CALL  CLXrNt  N-.'O3LKtCrA:0.M3KOUT,NCFFtICTATI 
LRTTE  (£.0130  NFKOUT 

: "CRMATI  OX  .*  CONTENTS  OF  2L0CX  N'C.’tI3t’  0"  THE  C"33  TllZ’ff/t 

WRITE  (C.214C)  ( CFASD( I ) tl=li 10  I 
} F0T!-!AT(iiX,*I3E‘i:=  • . 1 0 ( 10 . CX  » / / 4X  t • OR  I C ’OINT  DATA  FOLLOWS*/) 

lyn:=ic 

J WRITE  < St  ?1  GO  ) 

: FCRX.ATCrXt'I’iLXt’J'tAXt’SXYC'iAXi’CriL’tUXt'VIS'tEXi'EASr'tAXt'TC 
• P’t5Xt’w:THR'i3Xi*L.AYl*,4Xi*LAY2’f>4Xi*LAY3*il.Xt  •LAY4  •i4Xf*LAY5*t‘)X 
.i*LAYE*,i.Xt*L«Y7*t‘(Xt*LAY8*i4Xt*LAY0*/) 

CC  23C  I::3E3tIEN0 
30  26C  jrJCEriJEND 

lyncalync*: 

I"  ILYNC  .LT.  EU)  CO  TO  27C 
LYNC=3 

WRITE  (OtCisr.: 

!,  - CR.'‘A''(  •’  • ) 

WRITE  (C.215C) 

: WRITE  (G.217C)  1 1 J i ( CROP  V t It J t « ) t H r 1 1 1 E ) 

3 FCRMAT(lXtr2i3XtI2t«XtI3t4XtI0t2Xtr&.2XtICt2Xtiei4XtI2t3Xt9(lXtI6t 
»1X)  1 

: CONTINUE 


i;  sjerRccsAM  att^ztiT  cfkap 


0U3-F00»';F«C.C- HA? 

1 ^ruCrCLlTlN!:  CFMAP  ( rsrOt  IlWCt  JSCG.  JCNS  tDISTtTYflCiISSS  .ncss.mnsr. 

• HTIMi tN03  ) 


13 

13 

2i: 

21 

22 

23 

25 

2£ 

27 

73 

29 

JC 

31 

32 

33 
3<) 

T r 

36 

77 

33 

39 

“42 

■41 

442 

43 

44 
4 5 
4 6 

47 

48 

49 
53 
51 
57 


^ 41 

5 3 
54 

r e 


9S 

57 

58 


THIG  PO'JTrsE  U32S  TH'  3557  ?:E='0RT5  G^NTRATED  3Y  C0M333  T3  3CT5R 
HINr  THC  CF30  PARAMETERS  AT  SrECIFIED  ERI?  POINTS  IN  THE  WINOCW 


INPUT  TATA 


. N3EX  rr  left  KAN3  EOCE  CF  window  or  SUD -WINDC. 


1C 

2 

I EN  2 

= 

I INDEX  or  RISHT  H 

11 

c 

use: 

r 

J INDEX  OF  SOT  TOM 

12 

2 

JENS 

r 

J INDEX  CF  TOP  EDG 

13 

r 

DIST 

z 

DISTANCE  CONSTANTS 

14 

2 

T YM  C 

z 

time  CONSTAf.TS  IN 

^ »• 

2 

ISSQ 

z 

SEARCH  SCUARE  SIZE 

1£ 

2 

NSS  3 

z 

NUM3ER  SEARCH  S 

^ 7 

C 

MNBP 

z 

MINIMUM  NUMBER  OF 

pa^aheter:  at  a drio  point. 

:iTTME  = MAP  TINE  (0  - 1440  . 

N03  = NUK3ER  3F  33S/REP. 


INTCC'R  3°3?V 


PARAMETER  3 R3  r 2 5 .4  N T HX  = 2CC  .L  NT  HY  =200 . 1 ? = LNT  HX3  3R  Ot  J=  :L  NTHY  2 GRD 
PARAMETER  NC2-.:DCCt  MNPAirO 


COMMON  /INTOER/  I NOE S ( 2 3 . NO  OR  ) 

COMMON  /:rD32  NO'JSZ  ( ID)  .GROP  V<  IP#  JPtlS) 


DIMENSION  J PT  tNC3R)  . ISSKS  ).  DISKS)  .TYM;(3)  tXNPT  (MNP)  I NP7{.N09R) 
3ATA  MISS  /-32763/ 


STEP  thRC'JGH  the  CFOE  PARAMETERS 

DO  22P  M:6,22 

)'GTrM-7 

I'tMGT  .3T.  7)  MGT:7 


SEARCH  3EST  REPORT  03S/RC?  AND  GENERATE  A POINTER  TA3LE  TO  THOS 
REPORTS  HAVING  INFORMATION  ON  THE  CFDD  PARAMETER  3EING  ANALYZED 


JMrC 

DO  2C  N = 1.N0?. 

IP  tINCEKM.N  ) .E3.  MISS)  CO  TO  2C 
NUMrNJM4-I 
JPTtNUM )AN 
23  CONTINUE 


STEP  THROUGH  3PI0  POINTS. 


DO  210  I:ISE3.rEN3 
IX'3  = 3RDMI-1  )»10 
wO  2.0  U.wj^^jiJaND 
IY0:3RD*( J-1 )»13 
NFDrO 

DC  23  NJrl.NUM 
23  NPT (NJ):JPT INJ) 


( 

''  i 


K I 

i N 


li'^l 


S SJ 

FP5CCRA1 

r«CM  CFt'AP 

59 

NM?T=MUM 

SC 

s: 

st:p  t;hr3U3h  search  ssuarcs  or  incrcasihs  size. 

6? 

63 

SS3  = 1 

GU 

. 

25 

IF (NKPT  .LE.  0 1 CO  TO  05 

C5 

JSJ  = Cr3.r  SS  G(  .NS3)  •10 

CG 

S:l 

C7 

33 

Nn:nPT(  .'J) 

ze 

NX5rI\CSS( 1. NH  1 

Z<i 

*iY3=lM03-l ; 2 .NN) 

7C 

<E  r; jxd-NXC  I 

71 

rY3=’:rA5'S(rYO-NYO) 

7 7 

IFidYCr  .CT.  vSC  ) .OR.  (TYOF  .GT.  JS"!)  CO  TO  5C 

73 

T4 

Kf;PT  (NFO  )-N»J 

75 

iri'J  .Zj.  HM='T;  GO  TO  SO 

7 b 

NMPTr^.^PT-l 

77 

00  “0  NRXfJ.NHPT 

7f 

“C 

N'’T(NR  ):,\FT(  SR +1  ) 

7 3 

RO  TO  3C 

b «r 

53 

NrN  + 1 

ni 

:F(  S-:.;-!?:  ) 20.oC.73 

P2 

■5.3 

* 

JUMP  ro  '3C  1*  THE  HtHlHoM  NUMBER  OF  BEST  RE’ORTS  USl 

.3** 

C 

ORIO  FCIN'T  HAS  BEEN  FOUND. 

55 

SG 

GO 

NM?7=^'^'rT-l 

1 7 

7C 

r^'lNFO  .or.  MN2R)  GO  TO  90 

cs 

NS5rNS0+i 

ro 

c 

JUMP  TO  3C  IF  THE  LAR3CST  SEARCH  SSUAPE  HAS  BEEN  EX 

‘.n 

52 

IF  (fJSO-NSSQ)  2E.2S.80 

53 

C'i 

c 

JUMP  TO  93  IF  AT  LEAST  ONE 'BEST  REPORT  LYINC  WITHIN 

“5 

SEARCH  S3UARE  HAS  BEEN  FOUND. 

57 

IF(NF0  .3T.  3)  50  TO  93 

58 

35 

MPrM-T 

59 

GROPVtT . J .MP) :mISS 

ICC 

CO  TO  21C 

ic: 

93 

TT3=C 

ir  2 

j r!  W - r • 

1C3 

z C- 7. 

15“ 

or  180  r.Ti.NFO 

155 

N3:XNPT( N : 

ICG 

DXS:(: XO-INOGS (1 . NS) 1 ••2 

1.57 

0YSr(TY3-’N33S(  2.N3)).*2 

:o& 

31 SaSCRT (OXS  +0X5 ) 

1C9 

TOrMTIKE-INOBS!  A.NS) 

1 i c 

X-;T0  .LT.  Cl  TOrlHAC+TO 

ill 

!'■(  TNOBSl  23  .N3I  .E3.  MISS)  30  TO  ICO 

112 

LT=IA3S(I\’C3S(23.NB)  ) 

113 

LT:M03I  LT  .ID 

115 

IF (LT  .3T.  3 ) LT:3 

115 

TCATYMCI LT) 

IIG 

:::3ist(lt )•lc. 

117 

CO  TO  113 

fr 


I M 


1-22 


"AC  SJePRCCRAM  £:L£:Mrr>T  ctmap 


113 

2 2 3 

T c r T Y w C ( 3 ) 

110 

3372157(31*13. 

113 

lid 

y "7  IN  Co  Si  7f  |N3  1 • EXP  (-((0I3/DC)**2I-((T2/TC) 

131 

33  TC  ( 14C  .12C tl2C.140.14C. 150. 13C1 .NCT 

1?3 

2 7C 

irt ’’NOOSC  M.  No  1 .LT.  01  IT37ITG*! 

13  3 

L337:aSS(IN035(K.N31 1 

2 24 

ir( N .NE.  9 1 30  TO  IGO 

135 

E337Lr5/:C 

12o 

.‘0  TC  192 

1"7 

133 

L337f'C5  1TN02  S(  V..NS  1 . 5 1 

123 

I'^ILCC  .:i.  11  1737173*1 

129 

LC07TNCESt  K. NE  1-LCO 

: 3c 

GO  TO  1G2 

131 

143 

L337INC3S( NT  1 

132 

GO  TO  liO 

133 

15C 

IF(WP  .LT.  SN'yn  CO  TO  16C 

124 

9y.iJr  = WF 

2 3 5 

I:PV7TNC5S (1 2.N3 1 

13E 

GO  TO  130 

137 

1C3 

02  57L3D 

1 .33 

_ SMyF72ry7  + wF 

12? 

5My''C75M'yF0+  (LF»0BS1 

14? 

130 

Go.N  t:\ue 

It: 

VTT'4-T'»/^ 

142 

X'r07’jF2 

243 

rrAC7yiT:/XNn 

244 

c?V7r.sy."c/5.yyr 

145 

CC  TC  ( 19C  .1 90 .1 9C.13C .ISO.  2CC.185 1 .MCT 

1 40 

135 

CPV7G'’V*2.5 

147 

ICFV73PV.'3 

143 

I G P V - T ? P / • !I 

249 

EF  (IGPV  .E  0.  0 1 GO  TO  230 

152 

ZFirmC  .LT.  .51  GO  TO  200 

151 

ECPV7rCP7*l 

152 

CO  TO  203 

15  3 

ISC 

E3PV72FV+.5 

154 

CO  TC  ( 200. 195.  195. 230. 200  1.M3T 

155 

^ nr 

IF(7!?AC  .23.  .51  ICPV7-IGPV 

155 

?r? 

K>  - f ;y_.  7 

157 

cpcrv ( r . j. K3  zi 7ICPV 

153 

?ir 

CON ’’I  NOE 

159 

27r 

CONTINUE 

IGC 

return 

:ci 

End 

13  iP  C.-AS 

30337 

OORAM  EL'NCNT  .RE703R 

OPHT.S  CPAS  .R'TO?'? 

p-jRPup  co2C-:i/os-in;3c 


CF*S  SJBPROGRAM  ELtMCNT  COMOBR 


* a. 


C0M03R 

SUBRCUTINr  C0PC3R{N0B»DSP  tTIKCtLSriLE’l 

RANKSt  RECOLVES  CONFLICTING  INFORNATIONt  AN3  COMBINES  CFOB  ELE- 
MENTS OF  PROXIMATE  OBS/REPST  THEN  INSURES  INTERNAL  CONSISTENCY  OF 
C0MBINE3  03S/REP 

PARAMETER  N03R:600 

INTEGER  3R0  .GPELfTIME 

COMMON  /MAP/XREFtYREFf CMROfLNTHXtLNTHY.GRO 
COMMON  /INTOBR/INOBS(23*N03RI 

01  ME  NS  ION  GPEUZR  * 10  » t MTEKP  1 2M  ) f NREC  ( 11 1 tOS  ( lU 

DATA  NHOBLK/23/ 

DATA  MISS/- 32768/ 

0SPH:D3P»10. 

NB  KOUTrC 

00  300  N:ltN03 

ICTrl 

DO  20  M = 1 t2  3 

2C  GPELCMfICT  ) = IN03S{MfN) 

CPELI ORtICT  »:l 

COLLECT  THE  CLOSEST  10  OR  LESS  OBS/RE®  TO  THE  SITE  OF  OBS/REP  NO. 
IN03S(5tN».  called  THE  BEST  REPORT  SITE»  WHICH  ARE  NO  MORE  THAN 
•DSP*  MM.  FROM  THE  BEST  REPORT  SITE. 

DO  35  NN=lfNOB 

!'■  (NN  .EQ.  N » GO  TO  35 

OXS  = ( IN03S« ltN)-IN09S»l«NN  H»»2 

0YS:(IN09S(2»N>-IN0BS(2tNNI 

OIST:S3RT(OXS*OYS) 

I'’(OIST  .GT.  OSPHI  GO  TO  35 
ICTrICT*! 

NREC (ICT 1:NN 

DStICT)=OIST 

le-nCT  .LE.  21  GO  TO  35 

JXrICT 

22  IFOStJX)  .3E.  DS(JX-ll)  GO  TO  30 
0TH:0S« JX-1  I 
NTM:NREC ( JX-ll 
0S( JX-1):CSIJXI 
NREC(JX-1)=N RECIJXI 
OSt  JX):DTM 
NRECI JXJzNTM 
JX=JX-1 

IF (JX  .GT.  21  GO  TO  22 
30  IFdCT  .3E.  11)  ICTrlC 
35  CONTINUE 

JUMP  TO  AC  IF  OTHER  OBS/REP  ARE  WITHIN  DSP  KM.  OF  BEST  REPORT  SITE 

IfIICT  .GT.  1)  GO  TO  40 
00  38  M=lt23 
38  MTEMP{M)zGPEL{MfICTI 
GO  TO  293 


% 


\ 


■I 


il 


CTAS  SUBPROGRAM  ELSMCNT  COMOBR 


1 

r 

f 

\ 

. I 


I 


f 

L 

V 


59 

90 

00  95  ICrZtlCT 

6P 

NXrNR'C  <IC 1 

J’ 

ei 

00  93  M = 1 .2  3 

1 

sz 

93 

PP5L(M»IC):I NOBS(MtNXI 

t 

63 

CP"L( 29frC) =IC 

i- 

69 

95 

CONTINUE 

|i 

65 

50 

00  90  NR:2fICT 

86 

NRR^NR 

' i 

• 1 

67 

i] 

68 

C 

RANK  OBS/REP  ON  URGENCY  THEN  TYPE.  SPECIALS  OF  ALL 

TYPES  OUTRANK  !' 

69 

c 

NON  specials  of  SAME  OR  OTHER  TY’E.  TYPES  RANKED  AS 

follows:  j 

70 

c 

1 AIRWAYS 

il 

71 

c 

2 METAR 

'I 

7Z 

c 

3 SYNOP 

' 1 

73 

c 

9 UPPER  AIR 

• ] 

79 

c 

5 AFCWC-30NEPH 

;.j 

75 

* J 

76 

55 

JTPl:3PEHG.NRR-l  1 + 5 

' j 

77 

IF( GPELC 6.NRR-1 ) .LT.  01  JTP 1=IA3S 1 OPEL  1 6 . NRR- 1 ) 1 

78 

JTP2=:PELI6tNRR)*5 

■ i 

79 

IF(  CPELC  DfNRRI  .LT.  OJ  JTP  2=  lA  8S 1 GPEL  I’S  * NRR  H 

80 

IF(JTP2  - JTPll  8C.6Ct9C 

j 

81 

i 

8Z 

c 

RANK  ON  BASIS  OF  TIME  OF  RECEIPT  OF  OBS/REP 

:i 

, J 

93 

89 

60 

IT01=TIME-GPEL«9  tNRR-U 

85 

IF(IT01  .LT.  01  IT01=IT01*1990 

i 

86 

IT02:TIME-CPELC9fNRR) 

87 

IF(IT02  .LT.  0)  IT02=IT02*199n 

'*1 

88 

m02  - ITDl)  80.7D.90 

I 

89 

90 

c 

RANK  ON  BASIS  OF  VALUE  OF  OBS/REP 

91 

■ \ 

92 

70 

IF (5PEL( 7.NRR-1I-GPEL( TtNRR l»  80.75.90 

93 

\ , 

99 

c 

RANK  ON  DISTANCE  FROM  BEST  REPORT  SITE. 

95 

li; 

96 

75 

IF  (3PEH29  .NRR-1  1 .LE.  GPELCZR.NRRII  60  TO  90 

97 

SO 

00  85  MT=1»29 

98 

MTCMP( MT  IrGPEL (MT .NRR-1 > 

99 

GPEL«  MT. NRR-1 »:GPEL IMT.NRRI 

j 

100 

85 

GPEUMT.NRRI  :MTEMP(MT) 

. i 

101 

NRR=NRR-1 

• J 

lOZ 

IF  (NRR  .GE.  2)  GO  TO  55 

103 

90 

CONTINUC 

109 

1C5 

CREATE  A BEST  REPORT  AT  THE  SITE  OF  09S/REP  MO.  IN09S(S«N1. 

106 

c 

ASSISN  THE  LOCATION.  STATION  ELEVATION.  TIME  SEQUENCE  NO.  AND  |jj 

107 

0» 

TYPE  OF  OBS/REP  NO.  INOBSIS.NI  TO  THIS  BEST  REPORT. 

108 

109 

00  100  M:1.6 

i i 

110 

ICO 

MTEMPC  MI=I NOBS(M.N» 

111 

! - 

IIZ 

c 

INHIALLY  ASSIGN  THE  CFDB  PARAMETERS  OF  THE  LOWEST 

RANKING  OBS/RCP  U 

113 

c 

WITHIN  OSP  KM.  OF  THE  BEST  REPORT  SITE  TO  THE  BEST 

REPORT.  > J 

119 

li! 

115 

KL1=10 

116 

MVAL:3PEL(7.ICT) 

Hi 

117 

00  170  H:S.22 

i li 

1-25 
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118 

MTEMP(H)=GPEL«MfICT) 

119 

12C 

JUMP  TO  130  fOR  ALL  CF03  PARAMETORS  EXCEPT  THE  CEILIN3 

121 

122 

IF( M .NE.  91  50  TO  130 

123 

128 

C 

DETERMINE  THE  CODE  NO.  INDICATING  THE  METHOD  9Y  UHICH  THE  CEILING 

125 

c 

WAS  MEASURED. 

126 

127 

KLlrlABStCPELOtlCTI) 

128 

KLl :M00« KLl tlO) 

129 

133 

c 

STEP  UPWARD  THROUGH  RANKED  OBS/REP  AND  REPLACE  CFOB  PARAMETERS 

f 

131 

c 

PREVIOSLY  aSSICNEO  TO  BEST  REPORT  BY  CORRESPONDING  PARAMETERS  IN 

132 

OBS/REP  OF  HIGHER  RANK  LOCATED  WITHIN  DSP  KM.  OF  BEST  REPORT  SITE. 

i 

133 

c 

00  NOT  MAKE  THE  REPLACEMENT  IF  THE  CFOB  PARAMETER  IN  THE  HIGHER 

> 

i 

138 

c 

RANKING  OBS/REP  IS  MISSING. 

1 

135 

I 

136 

133 

DO  170  I=2»ICT 

1 

137 

IRV=ICT*1-I 

!■ 

138 

IFI GPELC M.IRV ) .EG.  MISSI  GO  TO  170 

139 

183 

- 

JUMP  TO  150  FOR  ALL  PARAMETERS  EXCEPT  CEILING 

1 

181 

182 

IFI  M .NE.  9 ) GO  TO  150 

183 

KL2=IABSCCP~L(MtIRVI 1 

188 

KL2=M03( KL2 .10) 

185 

;; 

186 

3 

DO  NOT  REPLACE  CEILING  UNLESS  METHOD  5F  CEILING  DETERMINATION  IN 

187 

c 

HIGHER  RANKING  OBS/REP  IS  ALSO  A HIGHER  RANKING  METHOP  THAN  HAS 

188 

USED  IN  determining  THE  CEILING  VALUE  PRESENTLY  ASSIGNED  TO  THE 

189 

c 

BEST  REPORT. 

ISO 

151 

IPIKLl  .LE.  KL2I  GO  TO  ITC 

0 

152 

KL1=KL2 

153 

150 

MTEMPIKl=GPEL(MfIRVI 

’! 

158 

170 

CONTINUE 

155 

156 

#8 

INSURE  THAT  TOTAL  SKY  COVER  IS  NOT  LESS  THAN  THE  PERCENT  CLOUD 

i 1 

157 

c 

COVER  IN  ANY  LAYER. 

158 

j 1 

159 

00  22C  M=18.22 

163 

220 

MTEMPI  8»:MAX0  IMTEM?  tS)  fMTEK>  CM) ) 

161 

J 

162 

«• 

INSURE  MINBAS  LESS  THAN  MAXTOR 

\ 4 

163 

168 

IF(MTEMP(12)  .LE.  MTEMPIID)  MTEMP  1 1 2)  =MISS 

165 

00  230  I=2»rCT 

\ 

166 

IRV=ICT*1-I 

j 

167 

IF ( 1 lABSIGPELCGtlRVI 1 .GT.  31  .OR.  ( OPEL ( 23 t IRV 1 .EG.  MISSII  GO  TO 

168 

• 230 

.1 

169 

MTEMP(23I:GPEL(23»TRV» 

. ’ 

173 

230 

MVAL  = MVAL*GPEH  7.IRV> 

171 

mval:mval/i:t 

172 

MTEMPI7):I I 2*IN0BSt7>N))*MVAL)/3 

173 

o 

CM 

N3K0UT=NBK0UT*1 

1 

178 

CALL  BLKOUTINHOBlK  *MTEMPtN8K0UT»LSFILE.ISTAT» 

175 

300 

CONTINUE 

j 

176 

. 1 

1-26 
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177  310  00  330  N:lfN3K0UT 

178  CALL  3LKIN JN WOBLK fMTEMPtNfLSFILE tlSTAT) 

179  DO  320  M:1. 23 

18C  320  IN03S( Mf N):MTEMPf MJ 

181  330  CONTINUE 

182  RETURN 

183  END 

aHOGtP  CFAS  SUBPROGRAM  ELEMENT  OEPCLD 

iPRTtS  CFAS.0EPCL0 
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CFAS  SUBPROGRAM  SLSMSNT  DSPCLD 


CLOUD -FOG«CF AS. OEPCLO 


SUBRC'ITINT 


DSPCLDCPRrS.TEMP,  Drp,>4CLD) 


2 

3 

A 

5 

6 

7 

8 
9 

10 

11 

12 

13 

lA 

15 

16 

17 

18 

19 

20 
21 
22 
23 
2A 

25 

26 
27 
26 

29 

30 

31 

32 

33 
3A 

35 

36 

37 

38 

39 
AO 
A1 
A2 


C 

C ROUTIn:  to  convert  dewpoint  OCPRESSrONf  TEMPERATURE.  AND 
C PRESURE  INFORMATION  INTO  PERCENT  CLOUD  COVER. 

C 

C CPCLOl  = CPS  TO  CLOUD  CONVERSION  TABLE  AT  850  MB. 

C CPCL02  : CPS  TO  CLOUD  CONVERSION  TABLE  AT  700  MB. 

C CPCLD3  : CPS  TO  CLOUD  CONVERSION  TABLE  AT  500  MB. 

C CPCLDA  r CPS  TO  aOUD  CONVERSION  TABLE  AT  300  MB. 

C PRESTO  r STANDARD  PRESSURE  LEVELS  FOR  CPS  TO  CLOUD  CONVERSION. 

C NCLO  = PERCENT  CLOUD  COVER 

C DPRCPS  = CONVERSION  FACTORS  FOR  DEWPOINT  DEPRESSION 

C TCOR  : TEMPERATURE  CORRECTION  FOR  CPS 

C PRES  = MIDPOINT  PRESSURE  OF  CFDB  LAYER.  MILLIBARS 

C TEMP  = MIDPOINT  TEMPERATURE  OF  CFDB  LAYER.  DEG.  K 

C DEP  = MIDPOINT  DEWPOINT  DEPRESSION  OF  CFDB  LAYER.  DEG  C. 

C A.B.C  : CONSTANTS  IN  THE  EXPRESSION 

C DPRCPS  : A*  3 « ( PRE SS URE /ICCO > ♦ C *( PRESSURE MOOO I •• 2 

C THIS  EXPRESSION  CONVERTS  DEWPOINT  DEPRESSION  TO  CONDENSATION 

C PRESSURE  SPREAD  CONVERSION  FACTORS  FOR  CFDB  LAYERS 

C CPS  = CONDENSATION  PRESSURE  SPREAD  OF  CFDB  LAYERS 

C 

dimension  pres (9). temp (9)  .0E“ 19) . PRESTO ( R ) .1 C OR ( 1 2) . C PCLOl 1 75 ) * 
• CPCLOr ( 75) .CPCLD3  t 75 ) .CPCLDR  « 75 ) .NCLD  f9 ) .CPS(9 ) 


DATA  A/-4.9D1G22RC/.B/-0.931C<(502C/.C/-9.02129190/ 


DATA  MISS/- 32763/ 

DATA  TCOR/1. 05.1.1D.1.15.1.2D.1.2 
DATA  PRESTD/350.»700.»SOD.»300./ 
DATA  CPCLOl/ 

l.ODODDOOO.  .9870CQ0C.  .97600000. 
.933CCC0C.  .9150CCDC.  .895CCC0D. 
.33300000.  .3C300C00.  .76400000. 
.63500000.  .58000000.  .52500000. 


45000000. 
337CC0D0. 
25000000. 
18C0C00C. 
14C0DDD0. 
05800000 . 
05800000. 
02DOCOOO. 


42  500000. 
3150CCDC. 
237000U0. 
1 7ZOODOD. 
13000000. 
094CCOOO. 
05100000. 
01200000. 


.40000000. 

.30000000. 

.22200000. 

.16200000. 

.12500000. 

.08200000. 

.04400000. 

.00800000. 


5.1.70.1.37.1.5.1. 75’.2.Q. 2.4.2. »/ 


.96399999. 
.87800000 . 
.72399999. 
.52COOOCO. 
.37500000. 
.27500000. 
.20800000. 


.95000000. 
.85500000. 
.67500000 . 
.49000000. 
.35000000. 
.265CDDD0. 
.19500000. 


.153CC0C0. 

.11500000. 

.075C0C0C. 

.03500000. 

.005C0CCC. 


.145C0000. 

.10700000. 

.06600000. 

.02700300. 

.00300000. 


43 

• .00100000.14*0./ 

44 

DATA  :PCL02/ 

45 

*1.00000000.  .99699999.  .98899999. 

.98100300. 

.97300000. 

46 

* .96200000.  ,95200000.  .93500000. 

.92299999. 

.90499999. 

47 

• .39399999.  .87500000.  .84999999. 

.31500000. 

.77999999. 

48 

* .74500000.  ,70500000.  .66500000. 

.61600000. 

.55800000. 

49 

* .50000030.  .47300000.  .45300300. 

.43100000. 

.40300000. 

5C 

• .3fl7CCOOC.  .369CCCD0.  .35100000. 

.33400000. 

.31700000. 

51 

• .30000000.  .28600000.  .27200000. 

.25900000. 

.24600000. 

52 

• .23300000.  ,22200000.  .21100000. 

.20000000. 

.19000000. 

53 

• .18000000.  .17100000.  .16000000. 

.14300000. 

.13500000. 

54 

• .11000000.  .09400000.  .07500000. 

.05800000. 

.05100000. 

55 

* .03900000.  .02900000.  .02000000. 

.01000000. 

21  *0./ 

56 

data  :pclo3/ 

57 

•1.00000000.  .99500000.  .98999999. 

.981<99999. 

.97200300. 

58 

* .96200000.  .95200000.  .94199999. 

.92300000. 

.91500000. 
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59 

• .89799999t  .86000000*  .86099999* 

.84199999* 

.94199999* 

E3 

• .70700000*  .76700000*  .72099099* 

.67500000* 

.62500000* 

ei 

• .57500000*  .54600000*  .51700000* 

.48800000* 

.45900000* 

62 

• .43000000*  .41900000*  .40800000* 

.397CC000* 

.38600000* 

63 

• .37500000*  .35200000*  .32900000* 

.30&C0000  * 

.28300000* 

64 

• .26000000*  .24800000*  .23600000* 

.224X0000. 

.21200000* 

65 

• .2CC0CC00*  .19000000*  .18000000* 

.17000000* 

.15000000* 

66 

• .12500000*  .09300000*  .07500000* 

.OSl-OOOOO* 

.02500000* 

67 

•25»0./ 

68 

DATA  CPCLD4/ 

69 

•i.accDcaoCf  .99500000*  .98999999* 

.98199999* 

.97200000* 

70 

• .06203049*  .95200000*  .94199990* 

.92900000* 

.91500900* 

71 

* .80799999*  .38000000*  .86009999* 

.84199999* 

.81699999* 

72 

• .79700000*  .76700000*  .72099099* 

.675C0000* 

.62500000* 

73 

* .57500000*  .54600000*  .51700000* 

.4Becoooo* 

.45900000* 

74 

• .43000000*  .41900000*  .40800000* 

.39700000* 

.38600000* 

75 

• .37500000*  .3E'00000*  .32900000* 

.30CCCC0O* 

.28300000* 

76 

• .26000000*  .24800000*  .23600000* 

.22400000* 

.21200000* 

77 

• .20000000*  .19000000*  .15000000* 

.I25C0C00* 

.09800000* 

78 

• .07500000*  .05100000*  .02500000* 

27*0./ 

79 

C 

80 

c 

LOOP  TO  STEP  THROUGH  CFQ8  LAYERS. 

81 

c 

82 

00  200  LAY=1*9 

83 

c 

84 

c 

JUMP  IF  TEMPERATURE  NOT  HISSING  AND  DEWPOINT 

DEPRESSION 

85 

c 

86 

IF(TEMPILAY)  .GT.  0.0  .AND.  DEPILAYJ  .GE.  0. 

01  GO  TO  10 

87 

c 

88 

CODE  LAYER  AS  UNKNOWN  CLOUD  COVER 

• 

89 

c 

90 

NCLD<LAY)=MISS 

91 

c 

92 

c 

CODE  LAYER  AS  UNKNOWN  CPS. 

S3 

c 

94 

CPS«LAY>=HISS 

95 

GO  TO  200 

96 

c 

97 

c 

DETERMINE  DEWPOINT  DEPRESSION  TO 

CPS  CONVERSION  FACTOR. 

98 

c 

99 

10  DPRCPS  = A«B*tPRES(LAYI/lCDr. I*C« ( PRES (E AY  1 /lOOO. ) **2 

100 

5 

101 

c 

CALCULATE  UNCORRECTED  CPS. 

102 

c 

103 

CPS(LA YI=DPRCPS»DEPf LAYI 

104 

c 

105 

c 

DETERMINE  APPROPRIATE  TEMPERATURE 

CORRECTION 

FACTOR  TO 

106 

c 

107 

IFtTEMPCLAYJ  .GT.  268. 2J  GO  TO  40 

106 

IFITEMPCLAY)  .GT.  213.21  GO  TO  20 

109 

KK:12 

110 

CO  TO  30 

111 

20  KK=-0.2*(TEMP(LAY1-2T3.2I 

112 

113 

c 

CORRECT  CPS  FOR  TEMPERATURE 

114 

c 

IIS 

30  CPS(LAYI=TCORIKKI«CPSfLAYI 

116 

c 

117 

c 

DETERMINE  APPROPRIATE  ENTRY  IN  CPS  TO  CLOUD 

TABLE. 

y i 

■r 


CF»S  S09P'«0SR»M  ELEMENT  DEPaO 


118 

C 

119 

93 

INOEX:-CPSJHY)  •C.5»1.5 

IZC 

C 

121 

c 

IF  INDEX  OF  CPS  TO  CLOUO  TOO  LARGEt  CODE  NO  CLOUD 

122 

c 

123 

IF( INDEX  .LT.  75)  GO  TO  50 

129 

NCL0(LAYI=O 

125 

GO  TO  200 

126 

c 

127 

9# 

JUMP  IF  PRESSURE  LEVEL  BELOW  LOWEST  LEVEL  OF  TABLE 

128 

c 

• 

129 

50 

IFCPREStLAYl  .GE.  PRESTOfD)  GO  TO  170 

13C 

c 

131 

c 

JUMP  IF  PRESSURE  LEVEL  ABOVE  HIGHEST  LEVEL  OF  TABLE. 

132 

c 

133 

IFCPRESCLAYI  .L  E.  PRCST0(9))  GO  TO  180; 

139 

c 

135 

c 

LOOP  TO  DETERMINE  UPPER  BOUND  OF  PRESSURE  LEVEL. 

136 

c 

137 

DO  60  IL:2f9 

138 

LE VrG-IL 

139 

IF(PRES(LAY)  .LE.  PRESTOILEV))  GO  TO  60 

190 

LE  VHI  = LE V 

191 

60 

CONTINUE 

192 

LEVL0W:LEVHI-1 

193 

f* 

199 

c 

DETERMINE  CLOUD  COVER  OF  UPPER  STANDARD  PRESSURE  LEVEL. 

195 

c 

196 

GO  TO  (7Ct80 i9DilC0ltLEVHI 

197 

70 

CLDHI=CPCLDH  IN0EX)»1Q0. 

198 

GO  TO  110 

199 

90 

CL9HI:CPCL02( INDEX) *100. 

150 

GO  TO  110 

151 

90 

CLDHI=CPCLD3)  INDEX)  •100. 

152 

GO  TO  110 

153 

100 

CLDHI=CPCLD9t INDEX) *100. 

159 

c 

155 

c 

DETERMINE  CLOUD  COVER  OF  LOWER  STANDARD  PRESSURE  LEVEL. 

156 

c 

157 

110 

GO  TO  « 120. 130f 190.150) tLEVLOW 

158 

120 

CLOLOWrCPC LD 1 ( IND E X ) •lOO. 

159 

GO  TO  160 

160 

130 

CLOLOWrCPCLD  2( INDEX) *100. 

161 

CO  TO  163 

162 

190 

CL0L0W=CPCLD3f INDEX) .100. 

163 

GO  TO  160 

169 

150 

CLDLCWrCPC LD 9 ( INDEX ) *100. 

165 

c 

166 

c 

CALCULATE  CLOUD  COVER  OF  INTERMEDIATE  PRESSURE  LEVEL. 

167 

c 

168 

160 

NCLD(L AY  )=CLCLOW*(CLOHI-C LD L OW )•« PRE S t LA Y ) -PRESTO CLEVLO 

169 

• ) PRESTO) LEV  HI )-PRESTDILEVLOW))  *0.5 

170 

GO  TO  190 

171 

172 

c 

DETERMINE  CLOUO  COVER  OF  PRESSURE  LEVEL  BELOW  ALL  STAND 

173 

c 

PRESSURE  levels. 

179 

c 

175 

170 

NCLD(LAY)=CPCl01IIN 0EX)*1C0.*0.S 

176 

GO  TO  190 

1 
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m 

C 

178 

c 

determine  Cloud  cover  of  pressure  level  above  all  standard 

173 

c 

PRESSURE  LEVELS. 

laa 

c 

lei 

180 

NCLOILAY  I = CPCL04CINOEX)«1CO.«O.S 

1S2 

I* 

las 

c 

ROUND  CLOUD  COVER  TO  NEAREST  5 PERCENT 

ISA 

c 

185 

190 

NCLDILAY  irNCLO IL A Y )«2-M00 ( NCLD (L AY l«2f 5 1 

las 

c 

187 

c 

GAURD  AGAINST  MINUS  ZERO. 

188 

c 

188 

NCLD(LAYI=IABS(NCLO(LAYil 

133 

200 

CONTINUE 

191 

RETURN 

132 

END 

SH06»P 
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CLOUO-FOG 
1 

3 
<1 

5 

6 

7 

8 
9 

10 
11 
12 
13 
l<t 
15 
IB 

17 

18 

19 

20 
21 
22 
23 
2*i 
25 
2B 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


•CfAS.FlNDlB 

SU3R0UTINE  FIN318  llNCODEt  IXt  lYt  RABIUSt  ITMINf  HMAX* 
« IRECt  NOMOREI 


FIN31B  IS  USED  WHEN  THE  USER  WISHES  TO  EXAMINE  ALL  THE  OBS/REP*S 
STORED  THAT  ARE  WITHIN  A SPECIFIED  RADIUS  OF  SPECIFIED  COORDINATES 
WHICH  WERE  OBSERVED  DURING  A SPECIFIED  TIME  INTERVAL.  EACH  CALL  TO 
flNDlS  RETURNS  ONE  03S/REP  GOING  BACKWARD  IN  TIME  SEQUENCE. 


C 

c 
c 
c 
c 

C ENCODE  : USER  CONTROL  CODE.  INCODE  = 1 INTTIATES  THE  SEQUENCE  AND 
C SEARCHES  FOR  THE  NEWEST  OBS/REP  WHICH  SATISFIES  THE  LOCATION 

C AND  TIME  REQUIREMENTS.  THIS  03S/REP  IS  RETURNED  TO  THE  USER 

C IN  USER  BUFFER  IREC.  INCODE  NOT  = 1 IS  USED  ON  SUCCESSIVE 

C CALLS  TO  RETRIEVE  THE  NEXT  OBS/REP  IN  BACKWARD  TIME  SEQUENCE. 

C IX  = RELATIVE  X POSITION  IN  HECTOMETERS. 

: IT  = RELATIVE  Y POSITION  IN  HECTOMETERS. 

C RADIUS  = RADIUS  IN  HECTOMETERS  OF  CIRCLE  TO  BE  CENTERED  AT  (IX.  ITI. 

C ALL  OBS/REP’S  RETURNED  TO  USER  WILL  BE  IN  THIS  CIRCLE. 

C ITMIN  r MINIMUM.  OR  OLDEST.  OBSERVATION  TIME  IN  MINUTES  (0-143B). 

: ITMAX  = maximum,  or  newest.  OBSERVATION  TIME  IN  MINUTE!  10-1439). 

C FINDIB  WILL  RETURN  OBS/REP'S  STARTING  AT  UMAX.  OR  OLDER. 

C IREC  = BUF^^ER  IN  CALLING  ROUTINE  CONTAINING  NWDREC  WORDS  WHERE  THE 
C OBS/REP  WILL  BE  STORED. 

C NOMORE  = STATUS  RETURNED  TO  USER.  NOMORE  = 0 INDICATES  THAT  AN 
C OBS/REP  WAS  RETURNED  TO  THE  USER  IN  IREC  AND  THAT  THERE  MAY 

C BE  MORE  OBS/REP’S  IF  THE  USER  SHOULD  CALL  AGAIN.  NOMORE  = 1‘ 

C INDICATES  THAT  NO  OBS/REP  WAS  RETURNED  AND  THAT  NO  ADDITIONAL 

C OBS/REP*S  EXIST  IN  THE  DATA  BASE  WITHIN  THE  SPECIFIED  TIME 

C AND  LOCATION  CONSTRAINTS.  THE  USER  SHOULD  ASSUME  THAT  THE 

C CONTENTS  OF  IREC  WILL  BE  NOOIFIED  WHENEVER  FINDIB  IS  CALLED. 

COMMON  /BASE/  DXSECT.  OYSECT.  EDGE.  IPLOCK.  IDTIME.  IDXUTM. 

• IDYUTH.  INUM3R.  ISTATI,  ISTATO.  JNUtIBa.  JSTATI.  JSTATO.  JTIME. 

• LASTJ.  KAXGPS.  NBJNOW.  NSLKFJ.  NCOLS.  NGX.  NGY.  NINI.  NINTAB. 

• NROWS.  NRPB'^T.  NRPBFJ.  NSECTR.  NWaSKI-.  NWOBKJ.  NWDREC.  NXSECT. 

• NYSECT.  UTMPGO.  XBASE.  XMAX.  XMIN.  YCASE.  YMAX.  YMIN. 

• NNEWRStlCC).  NALLRS(IQO).  ITABLE(4.  5GC)  . I9UF(375ai.  JBUFIIOOO). 

• JTIMES(irC).  IRXKAX.  IRXMIN.  IRYMAX.  IRYMIN 
C 

DIMENSION  IRECd  ) 

RADSQ=RADIUS*RADIUS 

1C  CALL  3ET19W  (INCOOE.  ITMAX.  IREC.  NOMOREI 
20  IF  I NOMORE  .EQ.  1)  RETURN 

ic  (ITMOIF  (IRECCIOTIMEI.  TTMINI  .GE.  01  GO  TO  30 

NOMORCn 

RETURN 

30  XDIF=IX-IREC( IDXUTM) 

YDIF:IY-IREC (IDYUTM) 

IF  (XDIF.XOIF.YOIF.YDIF  .LE.  RADSQ)  RETURN 
CALL  GETIBU  c2 . ITMAX.  IREC.  NOMOREI 
GO  TO  20 

end 
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CLOUO-FOO*CF»S.FOO 
1 

2 Z 

3 C 

A : 

5 C 

6 C 

7 C 

8 C 

9 C 


SUBROUTINE  F OG  tNVIS.NWEAt AMTt VALU) 

ROUTINE  TO  CHECK  FOR  FOG  AND  MAKE  DECISIONS  AS  TO  PERCENTAGE  CLOUD 
COVER  ANO  TOPS  OF  CLOUDS  BASED  ON  HORIZONTAL  VISIBILITY  A'ND  TYPE 
OF  FOG. 

NVIS  = HORIZONTAL  VISIBILITY  IN  METERS 
NWEA  : SURFACE  HEATHER  WHO  CODE  1*677 


ID 

c 

DERIVED  layered  CLOUD  INFORMATION 

11 

c 

12 

c 

NUMLAY  = NUMBER  OF  LAYERS  GENERATED 

13 

c 

KINO  = KINO  OF  CLOUD  LAYER 

lA 

1 = LOU 

15 

c 

2 = MIDDLE 

16 

w 

3 = HIGH 

17 

c 

A : FOG 

18 

c 

5 : LOWEST  CLOUD 

19 

c 

6 = CLEAR  LAYER 

2D 

ITHIN  = THIN  LAYER  DESIGNATOR 

21 

c 

MISSING  = NOT  THIN 

22 

c 

1 : THIN 

23 

c 

COVER  : CLOUD  COVER  IN  LAYER  fC.O  - l.CI 

21* 

BASE  : HEIGHT  OF  THE  BASE  OF  LAYER*  FEET. 

25 

c 

TOP  = HEIGHT  O'’  TOP  OF  CLOUD  LAYER*  FEET. 

26 

c 

27 

c 

28 

DIMENSION  NHEAt  7 J 

29 

3G 

COMMON/CLOUOS/NUML AY. SIND CIOI* ITHIN t 13) 

31 

32 

SET  INDICATOR  FOR  NO  FOG  ANO  INITIALIZE 

33 

c 

3M 

IFT  NUMLAY  .EG.  0)  VALUrlO. 

35 

VALU=I VALU«10.  )/2. 

36 

NF0G=0 

37 

AMTrC. 

38 

39 

c 

RETURN  IF  VISIBILITY  GT  1 MILE 

A3 

c 

A1 

IF  CNVIS.CT.IGPCIRETURN 

A2 

A3 

c 

LOOP  TO  STEP  THROUGH  HEATHER 

AA 

c 

AS 

DO  10  NCHKrl*7 

AE 

A7 

c 

JUMP  IF  NOT  FOG 

A8 

A9 

IF (NHEAINCHK  I.LT.AO.OR.NUEACNCHK I.6T.A9I 

SO 

; 

51 

c 

set  INDICATOR  FOR  FOG 

52 

53 

NF0S=1 

5A 

c 

55 

c 

DETERMINE  FOG  TYPE  INDICATOR 

56 

c 

ST 

NTYPE=NOD(NNEA(NCHKI *10l*l 

St 

GO  70(1*1 *2t5*3*5*A*S*3*SI (NTYPE 
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59 

«« 

GG 

C 

DETERMINE  CLOUD  COVER 

61 

c 

62 

1 

AMOUNTED. 125 

63 

CO  TO  9 

64 

2 

AMOUNTED. 25 

65 

GO  TO  9 

66 

3 

AM0UNT=0.5 

67 

GO  TO  9 

68 

4 

AM0UNT:D.75 

69 

GO  TO  9 

70 

5 

AM0UNT=1.0 

71 

72 

c 

DETERMINE  MAXIMUM  OF  OLD  AND  NEW  CLOUD  COVER 

73 

A* 

74 

9 

AMT  = AMAX1I AMTt AMOUNT  1 

75 

10 

CONTINUE 

76 

c 

77 

r 

RETURN  I-  NO  FOG. 

78 

c 

79 

IF! NFOG.EO.O)  return 

8C 

c 

81 

c 

INCREASE  NUMBER  OF  LAYER  COUNTER#  SET  CLOUD 

82 

c 

TO  ZERO. 

83 

c 

84 

NUMLAV=NUMLA Y#1 

85 

KINDI NUML  AY  J34 

86 

COVER! NUMLAY irAMT 

87 

BASE! NUMLAY )rO. 

88 

c 

89 

JUMP  IF  40RIZONTAL  VISIBILITY  GE  1/2  MILE  OR 

9C 

c 

91 

IFINVIS  .CE.  800  .OR.  NVIS  .LT.  31  GO  TO  11 

92 

c 

93 

c 

SET  TOP  TO  249  FEET 

94 

c 

95 

T0PrNUHLAY»r249. 

96 

RETURN 

97 

98 

c 

SET  TOP  TO  149  FEET 

99 

c 

100 

11 

T0PINUMLAYU149. 

101 

*4 

102 

c 

REDUCE  VALU  OF  FOG  RELATED  INFORMATION  BY  3 

103 

KNOWN. 

104 

c 

105 

IFINVIS  .LT.  0)  VALU=H  IVALU*2. 1-10. )»7. 1/2. 

106 

RE  TURN 

107 

END 
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1 


i 


CFAS  S08PR05RAI1  ELEMENT  SET031 


CLOUD -F06 (CF AS. GET081 


3 

1C 

11 

12 

13 

13 

15 

16 

17 

18 

19 

20 
21 
22 
23 


SUBROUTINE  SETOOI  tlTABIO.  IRECI 
C CET  AN  OBS/REP  ^ROM  FILE  1. 

C ITABIO  = COLUMN  INOEX  OF  ITABLE  POINTINO  TO  DESIRED  0BS7REP. 

C ire:  = BUFFER  IN  USER  PROGRAM  WHERE  OBS/REP  HILL  BE  STORED. 

COMMON  /BASE/  DXSECT*  OYSECTt  EOGEt  IBLOCKt  lOTIMEt  lOXUTM* 

• IDYUTMt  INUMBRt  ISTATI.  ISTATOt  JNUMBRi  JSTATIt  JSTATOt  JTIHEt 

• LASTJf  MAXOPSt  NBJNOUt  NBLKFJt  NCOLSt  NGXt  NGY>  NINI.  NI^NTABt 

• NROUSf  NRPBFIt  NRPBFJ.  NSECTR«  NUDBKTt  NUOBKJi  NUDRECt  NXSECTt 

• NYSECT.  UTMPGDt  XBASEt  XMAX.  XMINt  YDASEt  YMAX*  YMINt 

• NNEURSIlCOt  NALLRSdCOlt  ITABLE(3*  SCOlt  IBUF(3750)>  JBUFtlCOOI. 

• jTlMESdCO*  IRXMAXt  IRXMIN.  IRYMAXt  IRYMIN 
DIMENSION  IRECd  > 

MYSECT:ITA3LEI3 » ITABIOJ/IOC 
IF  (MYSECT  .EQ.  IBLOCKi  60  TO  10 

CALL  BLKIN  INWOBKI*  IBUFt  HYSECTt  INUMBRt  ISTATII 
IBLOCKrMYSECT 

10  MYRECDrlTABLUA  t ITA3I0I-HVSECT*100 

index=(myreco-ii*nuorec 

DO  20  1=1 t NWOREC 
IN0EX=INDEX* 1 
20  IREC(I)=I9UFf INDEXI 
RETURN 
END 
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CL0U3-F00«CF»S.SET13W 


1 

2 

3 

« 

5 

S 

7 

8 
9 

13 

11 

12 

13 

1« 

15 

16 

17 

18 
19 
23 
21 
22 
23 
2<t 

25 

26 

27 

28 
29 
33 

31 

32 

33 
31 

35 

36 

37 

38 

39 
43 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 


SOSPOUTIN!;  SE:T13U  CINCODEt  NTTMC.  IRECt  NOMOREJ 
: 3ET19W  IS  us:9  WIEN  THE  USER  WISHES  TO  EXAJIINE  ALL  THE  OBSFREP’S 


C STOREO 
3 INCOOE 
C 

c 

C NTIME 

c ire: 
c 

C NOMORE 

c 


STARTING  AT  NTIME  AND  GOING  BACKWARD  IN  TIME  SEQUENCE. 

= USER  CONTROL  CODE.  INCOOE  : 1 IN-ITIATCS  THE  SEQUENCE  AND 
SEARCHES  FOR  THE  FIRST  RECORD  WHICH  IS  RETURNED  TO  THE  USER'. 
INCOOE  NOT  = 1 IS  USED  ON  SUCCESSIVE  CALLS  TO  RETRIEVE  THE 
NEXT  03S/REP  IN  TIME  SEQUENCE. 

= START  TIME  IN  MINUTES  (0-1433). 

r BUFFER  IN  CALLING  ROUTINE  CONTAINING  NWDREC  WORDS  WHERE  THE 
OBS/REP  WILL  BE  STORED. 

= STATUS  RETURNED  TO  USER.  NOMORE  = 0 INDICATES  THAT  AN 

OBS/REP  WAS  RETURNED  TO  THE  USER  IN  IREC  AND  THAT  THERE  HAY 
3E  MORE  OBS/REP’S  IF  THE  USER  SHOULD  CALL  AGAIN.  NOMORE  = 1 
INOICATES  THAT  NO  OSS/RE®  WAS  RETURNED  AND  THAT  NO  ADDITIONAL 


C OBS/REP'S  EXIST  IN  THE  DATA  BASE. 

COMMON  /BASE/  DXSECT.  OYSECTt  EDGE.  IBLOCKi  lOTIME.  lOXJTM. 

• lOYUTMt  INUMBRt  ISTATI,  ISTATOt  JNUHBRi  JSTATI.  JSTATO.  JTIKE* 

• LASTJt  MAXGPSt  NBJNOW*  NBLKFJ.  NCDLSt  NGXi  N6Y«  NINIt  NINTABi 

• NRCWSt  NRP3FI>  NRPBFJi  NSECTRt  NWOBKIi  NWDBKJt  NWDRECt  NXSECT* 


• NYSECTf  UTMPGD#  XBASE#  XMAX.  XMINt  YBIASEt  YHAX.  YMIN* 

• NNEWRS(lCO)t  NALLRSClOOt  IT  ABLE  (4  r SCO  > f IBUF(3750)*  JBUFdOOOl# 

• JTIMES(IOO).  IRXMAXf  IRXHINt  IRYMAX#  IRYMIN 
DIMENSION  IRECfl ) 


NOMORE=D 

IF  (INCOOE  .NE.  1)  60  TO  100 
IF  (NINI  .GT.  0)  GO  TO  40 
10  IF  (INCOOE  .NE.  II  GO  TO  30 
PRINT  20.  NTIME 

20  FORMAT  ( IH  • » 3ET1BW  - NO  DATA  RECORDS  EXIST  FOR  TIMES  LESS  THAN. 

* OR  EQUAL  T0’»  15.  ♦ MINUTES') 

30  NOMORE =1 
RETURN 

40  IF  (ITMOIF  (NTIME.  ITABLEd.  NINII)  .CE.  0)  GO  TO  80 
50  IF  (NBJNOW  .E3.  01  GO  TO  10 
INI:D 

J3KEND:LASTJ-N3JN0W»1 

IF  (J3KEND  .LT.  II  JBKEND=NBJNOW* JBKENO 
JBKGETiLAST J 

60  CALL  3LKIN  (NWDSKU.  JBuFt  JBKGETi  JNUMBR.  JSTATI) 

JRCGET=NRPBFJ 

70  1NDEX=( JRC GET-1) .NWDREC .IDT IHE 

IF  (ITMDIF  (NTIME.  JBUFIINDEX))  .GE.  01  GO  TO  100 

JRCGETrJRC GET-1 

IF  (JRCGET  .3T.  0)  GO  TO  70 

IF  (JBKGET  .EQ.  JBKENO  I GO  TO  10 

J3KGET=J3K3ET-1 

If  (JEKGET  .EQ.  0)  JBkGET:nBLKFJ 
GO  TO  60 
80  1N1=1 
IGET=0 

90  IgET:IGET.1 

IF  (ITMOIF  (NTIME.  ITABLEd.  IGET))  .LT.  0)  GO  TO  90 
ICO  IF  (INI  .NE.  1)  GO  TO  110 

IF  (IGET  .GT.  NINII  GO  TO  50 
CALL  GETOBI  (IGET.  IREC) 
lOETrlGET.l 

return 

110  IF  (JRCGET  .3T.  0)  GO  TO  120 


P 


I 


iL 


1-36 


Cr*S  SJ8PR06RAH  ELCHtMT  6CT1BW 


59  IF  IJSKCrT  .EQ.  J9KCN0I  80  TO  13 

6C  J9K5ETrJBKGi:  T-1 

61  IF  IJSKSiT  .£Q.  01  JOKOETrNBLKFJ 

62  CALL  3LKIN  (NUDBKJ*  jBUFi  JBKGCTi  JNUHBRt  JSTATII 

63  JRCSET=NRPaFj 

6A  120  INDEXr(JRCGET-ll»NWDREC 

65  00  130  I=l>  NWDREC 

66  IN0EX=INDEX*1 

6T  130  IREC(  I»:J3UFI  INOEX) 

68  JRC5ET=JRCGE T-1 

69  RETURN 

TO  ENO 

BHOStP  CFAS  SUBPROGRAM  ELEMENT  8ET1FN 
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CLOUO-FOG 

1 

2 

3 

t 

5 

6 
7 
S 
9 

13 

11 

12 

13 

1« 

15 

16 

17 

18 
19 
23 
21 
22 
23 
2i| 

25 

26 

27 

28 
29 
33 

31 

32 

33 
39 

35 

36 

37 

38 

39 
93 

91 

92 

93 
99 

95 

96 

97 

98 

99 
53 

51 

52 

53 
59 

55 

56 

57 

58 


•CFAS.SETIFU 

SUBROUTINE  3ET1FW  lINCODCt  NTTMEt  IRECt  NOMOREI 
3 3ET1FW  IS  USED  WHEN  THE  USER  WISHES  TO  EXAMINE  ALL  THE  OBS/REP'S 
C STORED  STARTING  AT  NTIME  AND  GOING  FORWARD  IN  TIME  SEQUENCE. 

C INCOOE  r USER  CONTROL  CODE.  INCOOE  = 1 INITIATES  THE  SEQUENCE  AND 
C SEARCHES  FOR  THE  FIRST  RECORD  WHICH  IS  RETURNED  TO  THE  USER, 

C INCOOE  NOT  r 1 IS  USED  ON  SUCCESSIVE  CALLS  TO  RETRIEVE  THE 

C NEXT  03S/REP  IN  TIME  SEQUENCE. 

C NTIME  = start  TIME  IN  MINUTES  10-1939). 

C IREC  = BUFFER  IN  CALLING  ROUTINE  CONTAINING  NWDREC  WORDS  WHERE  THE 
C OBS/REP  WILL  BE  STORED. 

C NOMORE  = STATUS  RETURNED  TO  USER.  NOMORE  = 0 INDICATES  THAT  AN 
C OBS/REP  WAS  RETURNED  TO  THE  USER  IN  IR'C  AND  THAT  THERE  MAT 

C 9E  MORE  OBS/REP’S  IF  THE  USER  SHOULD  CALL  AGAIN.  NOMORE  = 1 

C INDICATES  THAT  NO  OQS/RE®  WAS  RETURNED  AND  THAT  NO  ADDITIONAL 

C OBS/REP'S  EXIST  IN  THE  DATA  BASE. 

COMMON  /BASE/  DXSECT.  OYSECT.  EDGE.  I9L0CK,  lOTIME*  I9XUTM. 

• IDYUTM.  INUMSRf  ISTATI,  ISTATO.  JNUMBRt  JSTATIt  USTATOt  JTIMEt 

• LASTJ.  MAXGPS.  N3JN0W.  NBLKFJf  NCOLS,  NGX.  NGY,  NINIf  NI<NTA8f 

• NR0W5.  NRP9FI.  NRP3FJ,  NSECTRt  NWOBKI,  NWDBKJ.  NWDREC#  NXSECT# 

• NYSECT#  UTMP-SOt  XBASE.  XMAX.  XMIN.  YBIASE.  '/MAX#  YMIN. 

• HNEWRS(ICO),  NALLRSdCOI.  ITABLEtA#  5C0).  IBUFt375C)#  JBUFdOOOl# 

• JTIMEStlCD).  IRXMAX.  IRXMIN.  IRYMAX.  IRYMIN 
DIMENSION  IRECfl  ) 

N0M0RE=0 

IF  (INCOOE  .NE.  1)  GO  TO  135 
IGET=NINr 

1^'  (N3JN0W  .EQ.  0)  GO  TO  60 

IF  (ITMDIF  (NTIME.  JTIME)  .GT.  0)  GO  TO  60 

INI=D 

J3KGET:LAST J-NSJN0W#1 

IF  (J9KGET  .LT.  1)  JOKGET=NBJNOW#JBKGET 
10  IF  (ITMDIF  (NTIME.  JT IM ES t J3K0ET) I .LE.  0)  GO  TO  20 
JB KSETrJBKGET*! 

IF  (J9KGET  .3T.  NBLMFJ)  JBKGETrl 
GO  TO  10 

20  CALL  BLKIN  (NWDBKJ.  J9UF.  JBKGET.  JNUMBR#  JSTATII 
JRC5ET=1 

30  IN0EX:(  JRC3ET-1 ) •NWOREC*IDTIME 

IF  (ITMDIF  (NTIME.  JBUF(INDEX))  .LE.  O’)  GO  TO  90 
JRCGET:JRC3ET  »1 
GO  TO  30 

90  INDEX:(  JRC3ET-1 )»NW0REC 
DO  5C  1=1.  NWDREC 
1NDEX=IM0EX*1 
50  1REC(I)  = JBU'^  (INDEX) 

JRCGET:JRC3ET*1 
RETURN 
SO  INI=1 

70  IF  (I3ET  .GT.  0)  GO  TO  ICO 
PRINT  80.  NTIME 

80  FORMAT  (IH  . • 3ET1FW  - NO  DATA  RECORDS  EXIST  FOR  TIMES  GREATER  TH 
•AN.  OR  EQUAL  TO.*.  IS.  • MINUTES*) 

90  N0M0RE=1 
RETURN 

100  IF  (ITMDIF  (NTIME.  ITABlE(1.  IGET)I  .LE.  0)  GO  TO  110 
IGET=I3ET-1 
GO  TO  70 

110  call  GETOBI  (I3ET.  iREC) 


cr«s  SUePROCRAN  ELTHCNT  CtTlFW 


Tl- 


Ll 


S9 

IGETSIOET-l 

60 

return 

61 

135 

IF  tINI  .NE.  0» 

GO  TO  15C 

62 

ir  1 JRCGET  . LE. 

NRPBFJI  GO  TO  40 

63 

IF  (JSKGET  .NE. 

LASTJ)  GO  TO  140 

64 

INI=1 

65 

GO  TO  113 

66 

140 

J3K3ET:JBKGET*1 

67 

IF  JJBKGET  .3T. 

NBLKFJI  JBKGETrl 

68 

GO  TO  20 

69 

150 

IF  (IGET  .ST.  0) 

GO  TO  110 

70 

GO  TO  90 

71 

END 

8HD0*P  CFAS  SUBPROGRAM  SLEMFNT  TTMDIF 
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CLOUO-f 0G«CFAS.1TM3IF 

1 FUNCTION  ITMOIF  tlTAt  TT0J 

2 C COMPUTES  DIFFERENCE  BETWEEN  TIMES  ITA  AND  ITB.  RESULT  IS  POSITIVE  IF 

3 C ITA  IS  MORE  RECENT  THAN  ITS.  IT  IS  ASSUMED  THAT  ALL  TIME  DIFFERENCES 

A C WILL  BE  LESS  THAN  OR  EQUAL  TO  720  MINUTES. 

5 IDIF=ITA-IT8 

B IF  (10  IF  I 20  t 30  f 10 

7 10  IF  (lOIF  .LE.  7201  GO  TO  30 

8 I3ir  = IDIF-m  MO 

9 GO  TO  30 

ID  20  IF  (I3IF+720  .GE.  01  GO  TO  30 

11  I0IF=I0I^*1 RAO 

12  30  ITN3I'’=I0IF 

13  RETURN 

lA  END 

aHOG»P  CFaS  SUBPROGRAM  ELEMENT  ITOJ 

aPRTtS  CFAS. ITOJ 
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NOV  75  B R FOM»  H 0 MOUNT  OAA007-74-C-0251 


UNCLASSIFIED  SCRC-CR-75-17  NL 


CFAS  SUBPROGRAM  ELtMENT  ITOJ 


CLOUO-FOO»CFAS.ITOJ 

1 SUBROUTINE  ITOJ 

2 C OELETE  THE  OLDEST  (NRPBFJI  RECORDS  FROM  FILE  I AND  STORE  THEM  AS  A 

3 C BLOCK  IN  '"ILE  J. 

A COMMON  /BASE/  OXSECTt  OYSECT.  EOGEf  I3LOCK,  lOTIME.  IDXUTMt 

5 • lOYUTMt  TNUKBRf  ISTATIf  ISTATO»  JNUMPRt  JSTATI*  JSTATO#  JTIMEt 

G • LASTUt  MAXCPSt  NBJN0W>  NSLKFJt  NCOLS«  NGXi  SGYt  NINIt  NINTABt 

7 • NROUS.  NRPBFIt  NRPBFJ,  NSECTRt  NWOBKI.  NWDBKJt  NUDREC*  NXSECT* 

8 • NYSECTf  UTMPOOt  XBASE.  XMAX.  XMIN.  YBIASEi  YMAX.  YMIN» 

9 • NNEWRSdCPl.  NALLRSClOOIf  ITAELEIAt  SCO.  IQUF(3750)»  JBUFdCOOIt 

ID  ♦ JTIMESI ICO).  IRXMAX.  IRXMIN.  IRYMAX.  IRYMIN 

11  IL0U=NINr-NRP3FJ*l 

12  jTIMErlTABL Er 1.  ILOU) 

13  DO  50  NRTESTrILOU.  NINI 

lA  ITEMPrlTABL E< A.  NRTEST) 

15  IF  CITEMP  .EG.  Dl  GO  TO  5C 

16  MYSECT:ITEHP/100 

17  IF  (MYSECT  .EG.  IBLOCKJ  GO  TO  1C 

18  CALL  DLKIN  INUDBKI.  I3UF.  MYSECT.  INUMBR.  ISTATI) 

19  I3L0CK=MYSECT 

20  13  I3T100:I3L0C<  *100 

21  30  AO  NRCHCKrNRTEST.  NINI 

22  ITEMP=ITABL E« A.  NRCHCK) 

23  IF  (ITEMP/100  .NE.  ICLOCKI  GO  TO  AO 

2A  IWDEND:( ITEMP-IBT10Q)»NUDREC 

25  IWOSTRrlWDEND-NWDRECl 

26  INDEX:( NINI -NRCHCK ) *NHOREC 

27  DO  20  IUD:IWDSTR.  IMOEND 

28  IN3CX:rN3EX*l 

29  20  J3U'-<IN0EX  IrlBUFlIWD  ) 

30  ITADLEIA.  NRCHCK):0 

31  NNEMRS (IBLOCKI=NNEURSriBLOCKI-l 

32  AO  CONTINUE 

33  50  CONTINUE 

3A  IF  (NBJNOW  .EG.  0)  LASTJrO 

35  LASTJ:LAST  J*1 

36  IF  ILASTJ  .GT.  N6LKFJ)  LASTjrl 

37  CALL  BLKOUT  (NWDBKJ.  JBUF.  LASTJ.  JNUMBR.  JSTATO) 

38  JTIMESILASTJIrJTIME 

39  IF  (NBJNOW  .LT.  NBLKFj)  NB JN0W=NB JNOU 

AO  NiNIrNINI-NRPBFJ 

A1  RETURN 

A2  END 
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CFAS  S'JSrROGRAM 

ELEMENT  LAYCL2 

CL0U0-F0G*CF 

AS. 

LA YCL3 

1 

SUBROUTINE  L AYCLD(DLATtVALU  1 

£. 

z 

c 

ROUTINE  TO  CONSTRUCT  CLOUD  LAYERS  FROM  LAYERED  CLOUD  DATA  IN 

M 

AIRWAYS.  KETAR.  AND  SYNOP  TYPE  33S/RE’. 

5 

'c 

S 

f* 

LIST  O.'’  ARCUNENTS 

7 

c 

3 

INPUT 

o 

c 

13 

olat=latitud;  of  oss/rep.oegrees  jnegative  if  south) 

11 

c 

* 

OUTPUT 

13 

<* 

IR 

VALU=TNF0RMATI0N  VALU  OF  03S/RE? 

' 

ir- 

c 

is 

COMMON  DATA 

17 

c 

i 

13 

r* 

IN 

13 

r 

■ 

2 

, NS(>;)=SKY  C07E.R  DUE  TO  CLC  UO  IN  LAYr.R,  0-1.  1 TO  IG  LAYERS. 

">  ^ 

r* 

ICTS=TYPE  0-  CLOUD  IN  LAYER.  E -5  WMO  CODE  C5C0 

j 

22 

IHS( JjrHEIOHT  OF  BASE  OF  CLOUD  LAYER 

i 

2Z 

c 

AIRWAYS  - I'C’S  OF  FEET 

24 

c 

METAR  - V.'MC  CODE  1677 

25 

c 

SYNCP  - LMO  CODE  1677 

26 

z 

ITRIN!  J)  rCLO'jO  wAYE.R  THICKNESS  INDICATOR 

i 

27 

c 

1 !'•  ■'HI:. 

1 

28 

c 

KISSE-NO  IF  not  thin 

23 

c 

ITYPErTYPE  CF  CyS/REF 

' 

33 

1:AIRU..YS  -1  IF  A SPECIAL 

31 

c 

2:META?  -2  IF  A SPECI  (SPECIAL) 

! 

32 

/• 

3:SYNC."> 

i 

33 

r 

1 

34 

OUT 

I 

35 

c 

35 

2 

\UMLAY:NJMDE.R  Or  CLOUD  LAYERS  IDENTIFIED 

37 

c 

KIN0=KIN3  C~  CLOUD  LAYER 

33 

• 

1 :L  OW 

j- 

33 

c 

2:MIDDLE 

! 

42 

3=,(TCH 

! 

4 1 

n 

t:FCO 

42 

c 

Sr,  O-EST  CLOUD 

! 

43 

c 

C=CLEAR  LAYER 

Is 

44 

ITHIN^T'-iEN  L’.YER  DESIGNArOR 

n 

45 

c 

k:e3Inc:nct  thin 

l-l 

JJ 

46 

2 

1 =THIN 

s 

4 7 

c 

CCYERrFRACTI  C-N  CF  SKY  COVERED  BY  CLCUDS  IN  THE  LAYER  (D.C-  l.C) 

h 

43 

2 

OAiC^HEIOKT  D'T  THE  3ASE  OF  CLOUO  LAYER, 

13 

43 

TOP^HEICHT  CF  HE  TOP  CF  THE  CLOUD  LAYER.  FEET. 

53 

!" 

51 

COKMCM  /CySRET'K  I X . I Y . 1 2 , 1 T IM  E . I DDC  . I T YPE  . I V ALU  . NTC  LC  .NCCIL.NVV. 

52 

• MINEAS.MAXTO’  SPWE  .L  OCV  ( 3 ) . lOL  . ITSC . EC  M . ICH,  XCTS  (13)  . NWEA(  I),  IPW, 

1 1 

53 

• EDD.TPF  .IFPP  .ITT  . I TO  . I VI S . NH . TH  . NS  ( 1 0 ) . IHE- ( 1C  ) . I THN  ( 10 ) .ICLG  .ICLCV 

:d 

54 

..IVISC.NOUSEt  S-3  ) 

1 1 

55 

L 

56 

y 

COMMON  /CLOUDS/  NL . KINC ( ID ) . IT H IN  1 1 0 ) . C C V ER ( 1 3 > . 3AS E ( 1 C ) . TO P ( 1C ) 

'1 

0 

36 

DIMENSION  S3AS( 3) 

1-42 
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59 

&C 


G3 

z *» 

G5 
6f. 
57 
CS 
5 9 
7C 

71 

72 

73 
■'if 
75 
7f 
77 
7 £ 
79 
£C 
■31 
£2 
■13 
£<l 


C7 

££ 

39 

5C 

91 


"QUIVALlNCC  (5£ASt 1 ) tBAGLCW I.  C SB A5 ( 2 ) t E ASKTD I i ( 55  A 5 { 3 ) f P AS HI > 
9A  TA 

• MISS/-327  53/f 

• •‘^7'I5S/-327EE  ./ I 

• 9LMX/55G3./  . 

• 3t'.MX/:EC2C./ 

C TOPILPr ASSUXro  TO“  OF  ALL  SLCUO  LAYERS 

TOFOLF^ACEED . 

: ASSISN  STANDARD  SAGE  HEIGHTS  FOR  LOW  AND  FIDDLE  CLOUDS 

3ASL0W:22CC. 

3ASMID:ll 700. 

~ CALCL'lAT;  a standard  high  cloud  DASD  FRO'I  L.‘.TIT'JDE  of  the  03S/RE 

5A5HIr35CDO.  - 1 3C00. • ( ASS f DL A T ) / 90 . ) 

: INITIALIZE  PARAKZTERS. 

.iTrlAOSt  ITY  ?- 1 ■ . 

VA  LL'aO  . 

Lson 

N'L=C 

7D  IF(N5(LS:i)  SOtSD.lOC 

0 RETURN  0-  NO  LAYERED  CtOUD  DATA 

9C  RETURN 


93 
9 4 
95 
56 

37 

58 
99 
ICC 
ICl 
1 C 2 
103 
iru 

< P •• 

« M ^ 

lEE 

107 

10“ 

1"9 

110 

111 

liz 

115 

114 


0 CONSTRUCT  A CLEAR  LAYER  TO  TCP 

9D  N'L:NL»1 

KIND INL  J=6 
COVER! NL):^. 

CASE (NL):C. 

TOPINLIATOOCLR 

: CALCULATE  03S/REP  VALUE 

VALL'rVALU*-  ID. 

XLLCrLSC 

yALUrVALU/XL'SO 

.'ETUFN 

C JuNF  ’C  230  IF  NOT  AN  DBSCUFIND  LAYER. 

: JwNF  TO  120  IF  AN  DD5CURTN0  LAYER. 

C JUUP  TC  105  IF  SKY  COVER  IS  NCT  IN  RAPCE  0 TO  9 

100  IF !NS! LSCI-9 > 23C.12C.100 

C OINIMSH  VALUE  CF  CES/REP  3ECA05E  OF  PiRCSADLE  ERROR.  THEN  RETURN 


110 

117 


IPS  xlscalsc 

VALU:VALU/XLSC 
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I 

1 

I 

I 

r 


113 

113 

IBO 

121 

122 

123 

12M 

1?E 

12G 

127 

125 

123 

133 

131 

132 

133 
1314 
ira 

135 
137 
133 
139 
itin 

151 

152 

153 
155 
155 
153 

15  7 
153 
153 
153 

151 

152 

153 
155 
155 
15S 

157 

158 
155 
153 
161 
152 
133 
155 
155 

136 

16  7 
169 
163 
173 

171 

172 

173 
175 
175 


RSTURN 

( 

3 CONSTRUCT  A TOTAL  OVSRCAST  LAYER 

, 120  NL=NL+1 

kin: (NL ):l 

COVERf  NL 1 :l  . 

VALU=VALU*13 . 

C DIMINISH  VALU  IF  BASE  HEICHT  NOT  GIVEN  JUMP  TO  130  IF  GIVEN 

IF  tHS(LSC)  .GE.  0)  GO  TO  130 
IHS I LSC ) -"3  27  39 
VALU:VALU-3. 

GO  TO  130 

13C  IF  (FT  .NE.  1 I CO  TO  15C 
3ASE(NL1=HS(lSC)*1C0 

3 SET  EASE  OF  OVERCAST  LAYER  EQUAL  TO  THE  SMALLER  OF  THE  CALCULATED 

C VALUE  OR  THE  ASSUMED  HIGH  CLOUD  CASE  HEICHT 

BASE  (NL  )=AMIM  (BA  SHI  tBASC(NL)  » 

30  TO  13? 

150  7F{THE<LSC)  .31.  50  GO  TO  150 
■JASE(  NL)  = HS(L5C)»iaO 
GC  TO  100 

153  IF(IHS(LSC)  .or.  30)  CO  TO  133. 

3A  SE (NL )r(IH  S( LSC )-50 ) .IDCH 
GO  TO  193 

; JUMP  TO  170  IF  CLOUD  LAYER  BASE  HEIGHT  HIGHER  THAN  HIGH  CLOUD  BASE 

IGC  IF(IHS(LSC)  .LT.  BD)  GO  TO  1 TD 

: CLOUD  LAYER  CASE  HEIGHT  OUT  OF  ALLOWABLE  PAK3E»  PRC3A3LE  ERROR 

C REDUCE  VALU  BY  A TOTAL  CP  5 AND  USE  THE  STANDARD  HIGH  CLOUD  BASE 

VA  LU  = VALU-3. 

173  VALU  = VAL'J-3  . 

3A  SE (NL  ):BASHI 
GO  TO  1G3 

18C  BASE  (NL  i=BASLOi.' 

C GCNSTRUCT  A CLEAR  LAYER  TO  THE  BASE  OF  THE  OVERCAST  LAYER 

13G  NL=.NL+1 

KINDt  NDAC 
CCV:R( NL  )rr. 

TOP ( NL)=3ASEt  NL-IJ 
9 A s:  ( N L ) =0  . 

XLSC-LSC  ' 

VALU:VALJ/XLSG 

RETURN 

G COME  HE.RE  IP  NOT  AN  ODSCURINO  LAYER. 

233  ML:NL*1 

VA LUAVALU+10 . 

COVER(NL)=- LOAT INStLSC) )/8. 
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JUMP  TO  33C  IP  cloud  LAYER  HEIGHT  IS  NOT  MISSING 
IFtIHSJLSC)  .GT.  C)  CO  TO  330 
JUMP  TO  2CC  FOR  SYNOP  AND  MCTAR  COOES 
ir (MT  .NE.  1 ) GO  TO  280 

JUMP  TO  270  IF  SKY  COVER  CF  NEXT  LAYER  IF  ANY  IS  NO”  MISSING 

CMC  IF<NS(LSC+1)  .CE.  0 .AND.  N3(LSC+1)  .LE.  3)  GO  TO  270 

JUMP  TO  2S0  IF  OTHER  LAYERS  HAVE  BEEN  CONSTRUCTED. 

IF (NL  .GT.  1 » CO  TO  25C 
VAL'JrO. 

NL^C 

C3VEP(NL):"MrSS 

return 

DETERMINE  THE  KIND  OF  HIGHEST  CLOUD  LAYER  YET  CCNSTRUCTED 

25C  H3AS:rEASE (1 ) 

KMXzKTMGtl) 

DC  252  I J=li NL 

!'■(  3ASE(  ;.L ) .LT.  H3A3E1  GO  TO  252 
KMXrKINDtrj)  '' 

H3A  SE=E  ASE(  IJ  ) 

252  CONTINUE 


JUMP  TO  2£2  I-  KIND  OF  HICHEST  CLOUD  LAYER  IS  1 DC  2 
IF (KMX  .LE.  2)  GO  TO  2CC 

HIGHEST  LAYER  CONSTRUCTED  THUS  FAR  W.,S  A HIGH  TYPE  CuOUD  . FRODAELE 
ERROR  IN  DATA.  DISREOAPO  PRESENT  LAYER  AND  REDUCE  VALJ 

NL=NL-1 

VALJrVALU-r. 

-O  TO  VSG 

2BC  KIND (NL )=KMX ♦! 

P ‘.SE  ( NL)  :S3  AS  (H  MX*1  ) 

IF(ITHN(-SCI  .E3.  1)  ITHINCNL):! 

V.LU:VALJ-2.5 
3C  TC  ACC 

DISREEARS  DATA  CH  PRESENT  LAYER 

2 7C  .NLrNL-i 

V\LU=VALJ-10. 

GO  TC  A5C' 

METAR  AND  SYNC?  03S/REP  WITH  MISSING  EASE  HEIGHTS  C CME  HERE.  JUMP 
TC  2AS  I'"  CLOUD  TYPE  NOT  3IVEN 

23C  I"(:CTS(LSC)  .L T.  0 .OR.  TCTSiLSC)  .3T.  91  GO  TO  SAG 

DETERMINE  BASE  OF  LAYER  FROM  CLOUD  TY’C 


CFAS  S'JDPR0C.7A«  ELEMCNT  LAYCLD 


I3G 

237 

29C 

ir(ICTS(LSC>  .GT.  2>  GO  TO  310 

233 

KINC(ML):3 

239 

DAS5  INL):3ASHI 

240 

• 

VALU:V'ALJ-2  . 

24  1 

00  TO  450 

■j  ^’y 

310 

I"( rCTCI L50 ) .OT.  5)  30  TO  220 

243 

KIN? lN0)r2 

244 

SAOr ( NL );9A  6910 

24E 

VA  LU:VALU-2. 

24G 

30  TO  456 

247 

320 

KI  N?  (NL  ) =1 

243 

3A6E(NL):3A5L0W 

24  P 

Vi LU- VALO-2. 

->  C O 

CO  TC  452 

251 

252 

0095  H09I  IF  OAOO  HEIGHT  CODE  13  NOT  91 

253 

2 54 

330 

ir(IH3(L;C)  .OT.  50)  30  TO  340 

25  5 

sag:  (r;i.  )=ihs  ileo  > •ico 

255 

. 

25  7 

c 

AIRNAYS  CBS/,".EP  JUK?  TO  420  AND  DETER9I: 

253 

259 

IP (9T  .NE.  1 j GO  TC  390 

260 

26 1 

c 

METAR  AND  SYNOP  OSO/REP  v'U9P  TC  320  TO  ! 

262 

263 

IFlITHNiLSC)  .EQ.  1)  XTHIN(NL)=1 

254 

GO  TO  420 

265 

340 

IFflHOfLSO)  .OT.  80  DC  TO  360 

265 

IPt  9T  .HZ.  1)  ;G  TO  350 

257 

SA  3E (NL  i=IHS (LS: ) *100 

263 

XF(ITHN(.50)  .E2.  1)  ITHIN(NL)=1 

^rn 

00  TO  42' 

270 

350 

3A3C(  NL  ; = ( IH:  (L  30-50  ) »10C0 

272 

GO  TO  350 

272 

360 

IF( MT  .NE.  1)  CC  TO  350 

273 

5A  S:  (.\L  ) =rH5  (LOO  ! »100 

274 

rFt9A5E(NL)  .LE.  30000.)  GO  TO  370 

275 

276 

PR03A9LE  ERROR  IN  033/RE?.  U3E  A3SU9tO 

»9  ^ 

273 

BA3E ( ) -3A  35  1 

279 

VA  LU:VAL'J-2. 

230 

270 

IP [ :rHN( -SC ) .E3.  1)  TTHIN(NL):l 

202 

GO  TC  4 EC 

252 

20  3 

PPC3A3LE  EFRCP  IN  033/KEP.  USE  AGEUKEEr 

2 34 

285 

380 

BA3E (NL  ):?A3HI 

•’36 

VlLU:VALJ-2. 

2 3 7 

233 

• 

JUMP  TC  425  IE  CL0U3  TYPE  9I35ING  CR  NC 

26  5 

20C 

390 

IE(TCT5(LS5)  .uT.  C .OR.  r5TS(L3C)  .OT!. 

29 1 

IP(ICT3:LSC)  .CT.  2)  GO  TO  4C0 

2 2 

KINO  ( NL  ) : 3 

25  3 

C'’  TO  420 

294 

40  6 

IP(ICT3(L3:)  .3T.  5)  00  TO  410 

KIND  FRCK  2ASr  HEIGHT 


|1 


1-46 


CFiS  SJEPPOGRif'  ELEMENT  LAYCLE 


’95 

KIND(NL):2 

Goe 

GO  TO  320 

2°1 

310 

KINOCNL)::! 

2^  C 

GO  TO  320 

■7  00 

3CC 

AIRWAYS  AND  SYNOP  OR  KCTAR  CSS/ROP  WITH  MISSING  CLOUD  TYPOS  COMO 

3D1 

HERO  TO  DETCRMINO  LAYER  KINO.  ALSO  COMO  HERE  TO  CHECK  LAYER 

3C2 

c 

KIND  AS  DETERMINED  FROM  CLOUD  TYPE.  LAYER  KIND  AS  DETERMINED 

3C3 

* 

FROM  das:  height  overrides  DETERMINATION  FROM  CLOUO  TYOE.  RE- 

3CM 

c 

DUCE  VALU  BY  2.  IF  THE  TWO  DETE RMIN ATIC NS  OF  KIND  DC  NOT 

305 

2 

A3R:E. 

3CE 

307 

3 20 

I"(EAS:<NL)  . GT  . DLMK)  GO  TO  330 

3ca 

IF(KrND{NLl  .EQ.  -32768  ) GO  TO  325 

303 

IF(KINDINL)  .ME.  1)  VALU=VALU-2. 

310 

325 

KIND  (NL  )=1 

311 

CO  TO  352 

312 

330 

IF(5ASE<NL)  .OT.  CMKXl  CO  TO  330 

313 

I"tKIN2(NL)  .E3.  -32763)  20  TD  335 

31A 

I-IKINCCNL)  .NE.  2)  VALUaVALU-2. 

315 

335, 

KINDI NL)=2 

31& 

CO  TO  3 ED 

317 

330 

IFIKINDINL)  .EO.  -32763)  50  TO  335 

315 

IFIKINDINL)  .NE.  3)  VALU=VALU-2. 

319 

335 

KIND(NL)r3 

320 

321 

2 

TEST  FOR  OVERCIST  PRESENT  LAYER.  IF  NOT.  TEST  FOR  MORE  LAYERED 

322 

C 

OLO'JD  DATA. 

323 

321) 

350 

IF(NSILSC)  .CE.  E)  go  to  37D 

325 

L3::lsc+: 

32C 

IF  INSI  LSO  ) 355.365.390 

327 

355 

ls2=lsc-: 

328 

360 

Ii^lNStLC:)  .CE.  8)  GO  TO  37D 

323 

330 

c 

CONSTRUCT  A CLEAR  LAYER  FROM  SURFACE  TO  TCP  WHEN  LAST  LAYER  NOT 

331 

2 

TOTALLY  OVERCAST, 

332 

3 3 3 

3E5 

NL:NL+1 

Z3‘i 

KIND (NL)=C 

335 

COVERINDrD. 

335 

2A  SE (NL ):r  . 

337 

TOPrNL)=TOPC.  R 

338 

GO  TO  3£C 

339 

31)0 

C 

CONSTRUCT  A CLEAR  LAYER  TC  THE  BASE  O'"  OVERCAST  OR  OBSCURING  LAYER 

31)1 

WHEN  EITHER  OF  THESE  WAS  THE  LAST  LAVER. 

31)2 

333 

372 

NL:NL»1 

333 

KI  ND  (NL  ) =6 

335 

COVER(NL)=D. 

336 

3 A S:  ( N L ) :0  . 

337 

TORI NL) =3ASE( NL-1) 

333 

33C 

XISOa-LSC 

339 

VAL'J:VALU/XL:S 

350 

r: turn 

321 

390 

IF( NS(LS:)-9)  230. SOD. 355 

352 

500 

n:(lsc)a£ 

353 

CD  TO  233 

333 

END 
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cr»s  SUBPROGRAM  ELEMENT  MVLCOV 


CLOUD -FOG*CFAS, 
1 


? 

3 

A 

5 

6 

7 

8 
9 

1C 

11 

17 

13 

1« 

15 

16 

17 

18 

19 

20 
21 
27 
23 
2A 

25 

26 

27 

28 

29 

30 

31 

32 

33 
39 

35 

36 

37 

38 

39 
AC 
A1 
A2 
A3 
AA 
AS 
A6 
A7 
A8 
A9 

50 

51 

52 

53 
5A 

55 

56 


MVLCOV 

SOSROUTINC  MVLCOV  (LCOVAt  LCOVBt  ZHA, 


C 

c 

c 


c 

c 

c 

c 

c 

c 

c 


IH9I 


THIS  ROUTINE  CALCULATES  THE  CLOUD  COVER  IN  T :H.E  CF03  LAYERS  OF  A 
station  ’A’t  LCOVAIIlf  AT  AN  ELEVATION  OF  IHA  (METERSI  THAT  UOULO 
EXIST  IF  THE  LAYERED  CLOUD  COVERAGE  AT  A STATION  'B*#  LCOVBlIit  OF 
ELEVATION  IHB  <KETERSJ  WERE  MOVED  TO  ’A*  WITH  THE  CFD8  LAYERS  OF 
•3’  RETAININ5  THEIR  REFERENCE  LEVCLt  IHB. 


INPUT  DATA 


LCOVBIIl  : CLOUD  COVER  IN  THE  CF08  LAVERS  OF  STATION  'B* 
IHB  = HEIGHT  ABOVE  MEAN  SEA  LEVEL  OF  STATION  'B* 

IHA  = HEIGHT  ABOVE  MEAN  SEA  LEVEL  OF  STATION  »A* 


OUTPUT  DATA 


LCOVAIII  = CLOUD  COVER  IN  THE  CFOD  LAYERS  OF  STATION  ‘A* 


DIMENSION  LC0VAt9»t  LC0V3«9)»  LEVELSflO 

DATA  LEVELS/Ct  ISOt  3C0t  6DC>  ICOOt  20C0.  3SOOt  SOOOt  6500*  10000/ 
DATA  MISS  /-327G8/ 

IHDIF= (IHA-IH3 )*3.281«0.5 

DO  AG  LEVEL  A=l.  9 

MINA:LEVELS(LE VELAI»IHDIF 

MAXA=LEVELS IL EV EL A* 1 » aIHOIF 

NPARTSrO 

ISUH1=0 

SUMfTrC.O 

SUM5XF:0.0 

DO  10  LEVELS  =lt  9 

IF  (LEVELSILEVElB)  .GT.  MAXAJ  go  to  23 
IF  (LEVELS  (LEVELB*H  .LT.  MINAI  GO  TO  10 
IF  (LC0V3tL  EVEL  B)  .EG,  MISSl  GO  TO  10 
MINAB=HINA 

IF  ILEVELStLEVELB)  .GT.  MINABI  HINA3=LEVELS (LEVELB I 
MAXAB=MAXA 

IF  (LEVELStLEVELB*! ) .LT.  MAXABI  HAXA9KLEVELS ( LEVEL3*1 ) 

IFT3I"=MAXA3-MINAB 

IF  (IFTDIF  .LE.  C)  GO  TO  10 

NPARTS=NPARTS*1 

MULT5=LC0V3 ILEVELB)/5 

ISUMlrISUMl*LC0VB{LEVELBI-NULT5»5 

SUMFT:SUMFT*IFTOIF 


SUM5XFrSUM5XF»MULT5*IFT0IF 
ID  CONTINUE 

20  IF  (NPARTS  .NE.  01  GO  TO  30 
LCOVAILEVELAirMISS 
GO  TO  AO 

30  LC0V=ISUM5XF/SUMFTI*5.0*2.S 
LCOV:( LCOV/5 1*5 
SUM1=ISUM1 

IEXTRA=SUM1/NPARTS*0.5 
LCOVACLEVEL  A) :l  C0V*IEXTRA 
AO  CONTINUE 
RETURN 
END 


>HOO*P  CFAS  SUBPROGRAM  ELEMENT  NOSECT 


1-48 


CF«S  SUBPROGRAM  CLEHCNT  NOSCCT 
CUO’JO-FO3»CFAS.N0SECT 


FUNCTION  NOSECT  tIXt  lY) 

C COMPUTIS  SECTOR  NO  Il-NSECTR)  PROM  UTM  COORDINATES  t lY t IX  I . 

COMMON  /BASE/  OXSECT.  DYSECT.  EOGEt  IBLOCKi  IDTIMEt  IDXUTMt 

• lOYUTH*  TNUMDRt  ISTATI.  ISTATO*  JNUMRR*  JSTATI*  JSTATOt  JUNE# 

• LASTJt  MAXSPSt  NBJNOW.  NDLKFJt  NCOLSt  NGXt  NGYt  NINIt  NINTABt 

• NROUSi  NRPBFXt  NRPDFJ.  NSECTRi  NWDBKIt  NWOBXJ#  NUOREC*  NXSECT. 

• NYSECTf  UTMPGDt  XBASEi  XMAX.  XMIN.  YCASEt  YMAXt  YMIN» 

• NNEWRSlIOOIt  NALLRSIICD).  ITABLECRt  5C0» r IBUFI3750)*  JBUFtlOOOl* 

• JTIMESdCOIt  IRXMAXt  IRXMINt  IRYMAX*  IRYMIN 
MYROU=« IY*Y8ASE-YMIN)/0YSFCT 

MYCQL:(IX« X3 ASE-XMIN I /OXSEC T 

NOSECT:MYCOL*NYSECT*NYROU*I 

RETURN 

END 


aHDGtP  CFAS  SUBPROGRAM  ELEMENT  RAOB 


aPRTtS  CFAS.RA03 
FURPUR  0025-10/28-13:58 


I 

i' 

I 


! 

i 

I 

I 


I 


PJ  W".  lO  CO  C*  I J ti 


CFAS  SJBPRCGr^Ar  GLiTPENT  RAC' 

C!.0UD-F0G»C-  AE.RA  53 

1 SUBRCUTINC  R AOT! HKP. P“Pt TFP tCPP, VALU ) 


ROUTINE  TO  OALOULAT"  TI«  PER  AT  URE  t OEWPCIN'T  OEPRESSICNr  AND  PRES- 
SURE rOR  THE  MIDPOINT  OF  THE  CFD3  LAYERS 


5 9 
■’'i 


0 IN3UT  DATA 

0 IX  r X OISTAtJOE 

C lY  = Y DIST.'.NEE  CF  RAC3 

5 IH  : terra:';  HEIDHT  AT 

C ITI“E  : TIME  OF  PACE  (0-1433 J 


RAOS  SITE  from  IXR'Fi  H EOT  0 M'T E RS . 
SITE  FROM  IYREF.  HECTOMETERS. 
A03  SITEf  METERS 


IZ 

T T Y p * 

Z 

4 . ( - 4 IF 

A 

SFEDIaL  RAGS) 

f* 

IZ  (15 

r 

ALTITUDE 

rr 

PAGE  REPORTING  LEVEL.  PEKAME 

TERS 

IP(  1) 

= 

-R'SSU  RE 

OF 

RAGS  REPORTING  LEVELS.  MILLI 

3AR.S*10 

15 

IT(I1 

= 

■'EM  FI  PATU 

(M. 

?F  RAOD  REPORTINC  LEVEL.  (DE 

0.  K.5»ir 

1 o 

153(15 

z 

DE  w?o::;t 

w ^ 

'’R'SSION  OF  RAOD  PEPORTIT.O  LE 

VE-.  (DEG. 

17 

NR  PL 

z 

N UNDER  CF 

% 

AOD  P''?CF,’’INO  LEVELS 

HM^( J) 

o V D ( ^ ) 


z HEIOH:  apdVE  MEA!;  SEA  LEVEL 


(ID">:iNT  OF  OEDB  LAYERS. 


: PRESS'.RC  AT  MIDPTINT  OF  THE  CFOS  LAYERS.  MILLISARS. 


•>  • 

c 

TM?(J5  = 'EMPEh 

ATURE  AT  MDPGIHT  CF  THE  CFCP 

LAYERS  . DEO.  K. 

Z? 

z 

3.M'’(J)  : DEWP  31 

'IT  DEPRESSIC';  AT  MIDPOINT  OF  T 

HE  CFD3  LAYER.  DEG. 

23 

r 

24 

r 

IS  .RDU'INE  ASSUMES  •••• 

25 

c 

1 • 

PrZ  A ' 

r IN  DECREADTNC  ORDER 

■'  5 

-1 

cta::o:.'  ~v 

ATEO'i  IS  cr-v"i; 

27 

r 

3. 

rzy  pz  i.MurvP 

AT  TOP  RAOD  LEVEL  TO  GIVEN 

’■CMP'RATUSE  AT  TWO  RACE  LEVELS  ARE  CIVEN 
FIRST  RAOE  LEVEL  IS  AT  SURFACE 


3D 

C.  ALL  PRSSSJRE-J 

: f cx 

■7  * 

c 

7.  ‘'TSSIN.3  OA-^A 

WCKD 

32 

3? 

DEftnITICNE  CF 

PCGU 

34 

3 5 

c 

LEVHOT  r RAOD  LE 

VTL 

36 

z 

37 

CCMMO;;  /CPDPE''/ 

1 X t * 

3 3 

•MAXTOO.NLV.LOOV ( 

")  # : 

39 

4 2 

DIMENSION  HMP(S) 

, o V 9 

41 

•22(305 

ARE 

CIVEN 

ARE 

GIVEN 

!ITH 

-3?~5 

CF  LCL’EST  HEICHT 


DATA  m:se/-3E7.-.:/ 

DOUBLE  PRECISICN  WEIGHT 


54 


3F 

E7 


DC  1 J = 1.N’TRL 

J ) :'^LCA  '(  IK  J 1)4:5, 

P(  J):"  LCA'  Cr  r(  J)  I •.! 

P : J J ZABSI  P(  JM 
Tt  Jlr'LCAT  (T  TC  J)  1 •.! 

1 or®  ( J ) r^'L  OAT(  IDO(  J 1 ) •.: 

VALUrlC. 

'<ST:C 

MSDOrE 

OHECX  FCP  MISSING  STATION  PFESSURT 


CFAS  S'JSPROCRAH  RLTMilNT  RACB 


I 4 
1 ^ 


1:3 

^ ^ Q 


iCC 

12: 
122 
122 
1 ->4 

125 

120 

127 

1.23 


1 22 
131 


122 

133 


134 
125 

135 
137 
123 
123 
142 

141 

142 

143 

144 

145 
145 
1"  7 
143 
142 
^ rn 


152 


153 

1 r ' 


156 


; 'j  ■ 

159 


lEl 
152 
10  3 
104 
155 
155 
1C  7 
163 
103 
172 


1'3 

174 

175 
17S 


3C 


JUIP,  73  1 3C  1'-  static:;  sRCSSUTS  is  not  yi22IN2 
IFtIPIl)  .ME.  MIOS)  30  T.3  130 

JUM’  TC  90  I.'  ANY  HEIGHTS  3F  2A03  REPG’RTINS  LEVELS  WERE  GIVEN 
IF(LEVHGT  .GT.  C)  30  TO  32 


CALCULATE  STATICN  P2ESSUTE  ASSUMING  STa;;3‘.2j  "'SESSURE  FOR  STATION 
ELEVATE  CM 


P(llriri3.25*(:.-t2<l)/44302.I)«»(5.2rC7344C7) 


STATION  PHESEURE  T2  THE  GPEATFST  CF  STAN2AR2  ATHCEPHEPE  PPESEURE 
ANO  LOWEST  PRESSU.7E  LEVEL 


?(  1 ) :4MAX1  ( PI  1)  rPI  2 ) ) 
GO  TO  130 


JUMP  TC  lie  If  A HEIGHT  IS  GIVEN  FOR  THE  LOWEST  PRESSURE  LEVEL 
IFILEVHCT  .LE.  2)  CO  TO  IIP 


CALCULATE  HEEGKTS  COMING  DOWN  FROM  LOWEST  HEIGHT  GIVEN  USING 
LCD  PRESSURE 


ILE  VrLEV-IGT  -2 
2 C 12.2  I rl  ,r  lE  V 


102 


LEV:LEVH2T-I 

A VET  = r .E  ♦(  Z(  l~V*l  )*''ILZV}) 

EILEVUn  LEVH)  + 2 3.  20  JO  * AV  ET  • A.  0 0 I ? : L EV  *1 ) / ’ ( LE  V ) ) 


.JUMP  TO  lie  HEIOHT  OF  SECOND  PACT  LEVEL  IS  A30VE  SJRFACE. 


IFI 2(2)  . CT  . 21  11  ) 00  TO  1 10 
PI  1 )=P  I 2 ) 


STATION  PRESSURE  SAME  AS  LOWEST  PRESSLRE  LEVEL.  JUM"  TO  130 
GO  TO  130 

TEST  fCR  MESSrNC  STATE::)  TEMPERATURE.  JUMP  TO  120  IF  SO. 


iir 


I'lITIli  .00.  FTSS)  30  TO  120 
i'VETrC.S.IT  (1  )rT(2)  ) 


CALCULATE  STATIC.';  PRESSURE  WITH  NO  ASS  U'I’T  IONS . 


'•(  1 ) -.■’!  2)  ‘E  X=  I ; ZI  2)-2(  1 ) ) / (29.2G33*.AVET)  ) 


CALCULATE  STATEON  PRESSURE  USING  THE  STANDARD  ATMOSt’KOKE 
PRESSUP"  GRADIENT 


12: 


?!!)  = ’(  2)  . 120  21  411  33*(Z(2)-Z(U)*(  1.-1(211) +2  I2))X3  3016. ))*»4.- 

• 56  7244  C7 
GO  TO  143 


TEST  .-O.R  MISSI.NO  STATION  T EMP  E.R  A TURC.  JUM’  TO  ISO  If  NOT. 


It 


i 


ij 

i 

■! 

t 

I 


\ 


m 

:76 

139 

IF  trill)  .GT.  C)  GO  TO  150 

17<5 

14C 

H9T:M9T»1 

isr 

D"LT:T (LEV2) -TtLEVl ) 

131 

OLNP  = ALO: IP (L  EV  2)/P ILEVl ) ) 

182 

182 
* ^ t. 

CALCULATE  ETATION  TEMPERATUOE  UCING  LCC  ’OESSURE 

'*■3  5 

Tll)=TILEVl)tl3ELT/0LN?)»AL0GIP{l)/PILEVl)) 

ISE 

187 

f* 

CALCULATE  MTIEIMG  OEWPOINT  DEPREESI0N9  ASSUMING  MOTOR 

138 

C 

BOATING 

188 

13C 

IFO 

00  160  LEV=: .NRRL 

ni 

IFIIC9ILEV)  -9E.  0)  GO  TO  155 

ic: 

9E?ILE'.'):.23E»tT(LEVI-273.2)*  2C.C 

193 

MS09=MS00*1 

19  4 

155 

IFOEPILEV:  .LT.  0.)  DEPILEVI=C. 

195 

160 

CONTI  NU 

196 

137 

« 

CHECK  TO  SEC  THAT  LOWEST  LEVEL  WITH  HEIGHT  IS  THE  LOWES 

198 

c 

LEVEL  ABOVE  THE  SURFACEt  IF  SO  JUMP  TO  180 

199 

2CC 

IF  ILEVHGT  .LE.  2)  CO  TO  160 

231 

' 

2C2 

c 

WIPE  CUT  HEIGHTS  CREATED  PREVIOUSLY 

233 

2C4 

LE  VH0T  = LrVH3  T-l  '' 

295 

00  170  LEV::?f  LEVH3T 

296 

TE  ILEV  )=KT SE 

2^7 

170 

Z(LEV).-TEILEV  ) 

2C6 

ISC 

LEVHST=1 

293 

219 

c 

CALCULATE  KISSING  HEIOHTS  OF  PRESSURE  LEVELS 

211 

212 

00  230  LEV=2»NRRL 

213 

214 

c 

JUMP  TC  ISC  IF  height  CF  PRESSURE  LEVEL  IS  NOT  KISSING. 

215 

216 

I'^tlEILEVI  .NE.  kiss;  GO  TO  190 

217 

218 

V 

CALCULATE  MISSING  HEIGHT 

219 

229 

A VETr. r • IT  ILEV-1  ) + TI LEV  ) ) 

221 

C 2l  Li:v-1 ) =-  22.2  998S*  AVET»ALCG(P  (LEV)  / ’ ILEV-1  > ) 

r*’? 

IILEV::2(LEV-1  )*D 21  lev-1  ) 

223 

GO  TC  233 

224 

225 

m 

JUMP  CUT  0-  -OOP  IF  CALCULATED  HEIGHT  IS  A30VE  MIDPOINT 

226 

CF  highest  C'OB  layer 

-» 

’25 

ICO 

IFIEILEV)  .3E.  HKPIG))  CO  TC  240 

2 2° 

I"ILCVH3T  ..T.  ILEV-D)  CO  TO  213 

239 

2'’G 

LS  VHGTrLEV 

231 

GO  TO  233 

232 

21° 

A VETrS  .5  •!  T(  LE  V-1  )♦  Tl  lev  ) ) 

233 

* 

234 

CALCULATE  TEST  HEIGHT 

2 35 

T PRESSUSC 


j 

i 
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CFAC  5JSPR0CRAM  CLIF.^NT  RAOP 

•:'?6  2TrST::(Lr\/-l  )-2a.  2333»AVCT.AL03(’(LEV)/?tL';V-l)l 

237  C 

;?38  3 IF  TCFT  SZIG1T  NOT  F3UAL  RCPORTEO  HIICHTi  NORMALIZE 

?3S  C TO  FIT 


?41 

IFtZTFST  .CO.  ZfLEV))  GO  TO  2G0 

2^7 

0£LZ=ZtL:V)  -KLEVHGT) 

ZA3 

OTESTZrZT'ST-Z (LEVHGT ) 

ZNORMrOZ'.Z/  OTZOTZ 

’AS 

L"  Vr  NT  rLfV-l 

VHGT»: 

247 

CO  222  ILZVrLZVSTRiLEVENO 

243 

Z(ILE:V)rZtILEV-l»4-02(ILEV-l)»ZN0RM 

240 

?2C 

CONTINUE 

25C 

GO  TO  202 

2F1 

23C 

CONTINUE 

2S2 

c 

232 

c 

CALCULATE  T5  y.'^ERA  TURE  t PRESSURE  ANO  DEWPOIN 

254 

r 

AT  THE  yrCROINTS  OF  THE  CF03  LAYERS 

5 

c 

250 

240, 

00  27C  LAY:!.  <3 

257 

7NR(LA Y ):-I2  758. 

2 53 

00  25C  l;V:2»NRRL 

259 

:‘^{7<LEV)  .OE.  HMPILAY))  GO  TO  26C 

2S3 

250 

CONTINUE 

23  1 

CO  TC  27C 

262 

260 

WEIGHT:!  25LEC  HHPfLAY)  )-3EL  cE!Z(LCV-l  1 > 1 / ( 03L 

263 

* 

>-03LE  ( Z ( LE  V-1)  1 ) 

2Z*i 

CMP  (LAY)  :OER(  LEV-n  i-COE?  (LEV)-DE’  (LEV-1)  1 ’W 

?c: 

T.MP(LA  Y ):T  (LEV-!  >’•(  T!  LEV  )-T  (LEV-l) ) *WriGHT 

2 0 6 

( LAY) rOSLE(? (LEV-: ) ) •(D3LE!? (LEV) ) /DCLEC 

2C7 

70 

CONTINUE 

25S 

26  9 

caloulate  val'j  of  RAOO. 

273 

271 

XRRLrNC.RL 

272 

273 

??4 

VALU:VALJ-(  (XMST/X.RRL  )*4.)-(  (XMSOD/XRRL)  *4. 

275 

RETURN 

276 

EN3 

CrA:  SLI9Pr;0CRA«1  ELTHENT  PCTCr,R 

C'.CaD-FOG»CFAS.'!rT03R 


SUB RCU TINT  R TT C3 S ( INC CDC i NT IM C i INOBCL  iNCMOR T . T YKOLD I 

THIS  ROUTTUZ  RTTKICVES  AS  OBS/RZP  FROY  THT  FILE  AN  CHICKS  FOR  THE 
PRESENCE  OR  PROBABILITY  OF  CONVECTIVE  TY’E  CLOUOS. 

INTECER  TYY.0L3 

OIHEN'EON  INOCELUR) 

CALL  CETl  3L  (rNOOOE.NTIRC.  INOSELfNOHO.REJ 
JUMP  TO  7:  I*  NO  NORE  033/RE?  IN  THE  FILE. 

IF(NCY0RE  .eg.  i)  GO  TO  7C 

SET  NCYORErl  A.N’ 0 JO.YP  TO  70  IF  03S/RE’  REMAININS  ON  THE  FILE  WERE 
KAOE  BEFORE  TYHOLC. 

IFiNTTKE  .LT.  T''k;uC)  CC  TO  R 
2 I"  I I.N03EL  (R  ) .GE.  TYMCLO)  00  TO  3 
NO'TORE  :l 
00  TO  7C 

R IF(TnCBEl(R)  .LE.  NTIME)  CO  TO  8 
OC  TO  2 

• JUMP  TO  70  I-  NOT  A TYPE  1 .2  OR  3 03S/REP. 


23 

3 

IFI  IN03E'.  ! : ) .or,  3)  00  TO  S5 

2 ° 

30 

c 

CHECK  FOR  THE  PPESENOE  OF  CONVECTIVE  CLOU! 

31 

c 

32 

LT-INCBEl ; 2 3) 

33 

IF((LT  .LE.  C)  .OR.  tLT  .OT.  91)  GO  TO  10 

3R 

IF( LT  .EO.  G)  50  TO  10 

35 

LT-1  + tlC*LT) 

38 

7 7 

c 

CHECK  FOP  PRESENCE  OF  MIEClE  CLOUDS. 

33 

z 

39 

HTrlNCCCL: 2S 1 

RC 

IF((HT  .OT.  0)  .and.  (MT  .LE.  9)1  LT=LT*1 

R1 

c 

R2 

c 

CHECK  FOR  AD3EN0E  OF  HIGH  CLCUOS 

R3 

c 

RU 

EMT:lN02El( 23 1 

R5 

IFOIHT  .LE.  0)  .OR.  ( IHT  .CT.  9)1  CO  TO 

RS 

LT:lT71 

R 7 

rC  TO  £0 

R3 

z 

R9 

c 

CHECK  LAYFFEO  CLOUD  DATA  FOR  PRESENCE  CF 

50 

3 

El 

10 

LTT:0 

r 7 

30  RO  rTC=27, 3C 

E3 

LTZINCBELIITC) 

5R 

IF((LT  .LT.  3)  .OR.  tLT  .GT.  91)  GO  TO  33 

55 

LTTr-11 

So 

GO  TO  RD 

57 

30 

XFtLTT  .EO.  Cl  CO  70  RC 

S3 

IFIILT  .LT.  C)  .OR.  ILT  .OT.  91)  SC  TO’  R3 

iiL. 
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LTT=LTT-1 

to  CCNTINUC  ■ 

IR(  LTT  .:a.  C I :0  TO  ifD 
IFILTT  .L7.  -131  LTT=-13 

. ltaltt 

GO  TO  £0 

c che:k  ue:ath:r  "cr  probability  of  convoctive  typc  cloud 

c 

45  DO  5C  ITCF37 i43 

I«T:KC0( iNOaiLl ITCl ilOOl 

IfniWT  .LT.  171  .OR.  (IWT  ,GT.  3?))  GO  TO  50 
IF((I'„'T  .01.  3D)  .AMD.  (IWT  .LC.  7D))  GO  TO  jD 

IFtdWT  .00.  DC)  .AND.  (IWT  .LE.  24  1)  GO  TO  50 

IFdWT  .10.  28)  GO  TO  SO 
LT=-22 
00  TO  GO 
50  CORTINUC 

IWIzTNOSILt  44  ) 

IF((IWT  .LT.  3)  .OR.  (IHT  .CT.  91)  GO  TO  55 
!,T  = -22 
CO  TO  GO 
55  LTr3 

GO  INCSBL (231:LT 
0 0 T T 70 

G5  INC3EL (23)r-32?£3 
70  RCTUSN 
END 

i 

I 


:i 

3 


i ! 


si 


CFAS  SUBPROGRAM  ELEMENT  SECTOR 


CL0U3-F0G*CFAS.SECT0R 


1 

2 

3 

A 

5 

6 
7 
B 
9 

10 

11 

12 

13 

14 

15 
IE 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 
33 

31 

32 

33 

34 

35 
3S 

37 

38 

39 
43 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 


SUBROUTINE  SECTOR 

: ESTABLISH  THE  STORAGE  SECTOR  MAP 


c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 


c 

c 

c 


COMMON  /BASE/  OXSECTt  DYSECT.  EOGEt  ICLOCKt  lOTIMEt  IDXUTMt 

• IDYUTMt  INUMBR*  ISTATIf  TSTATOt  JNUMBRt  JSTATI.  JSTATO.  JTIME. 

• LASTJ.  MAXGPSt  NBJNOUt  NBLKFJt  NCOLSt  NGXt  NGY»  NINIt  NINTAB» 

• NROUS>  NRPBFIt  NRPBFJ.  NSECTRf  NUOBKI.  NUOSKJt  NUDRECt  NXSECTt 

• NYSECTt  UTMPGDt  XBASE#  XMAXi  XMIN#  YCASE#  YMAX#  YMIN# 

• NNEURS(ICO).  NALLRSCIOOI#  IT4BLEI4>  SCO) t IBUF(3750lt  JBUFIIOOO)# 

• JTIMESCIOO#  TRXKAX#  IRXMIN#  IRYMAX#  IRYMIN 

N3X  ANO  NGY  ARE  THE  NO.  OF  GRIO  POINTS  CONTAINED  IN  THE  X 
AND  Y DIRECTIONS  OF  A STORAGE  SECTOR. 

NGX  = 1 

10  IF  (N3X»NGX  .GT.  MAXGPS)  GO  TO  20 
NGX=NGX#1 
GO  TO  10 
20  NGX=NGX-1 

NOTE  - SQUARE  STORAGE  SECTORS  ARE  BEING  USED.  AT  SOME 
FUTURE  TIME  IT  MAY  BE  ADVANT AGEIOUS  IN  TERMS  OF  OPERATING 
EFFICIENCY  TO  USE  RECTANGULAR  STORAGE  SECTORS. 

NGY:NCX 

DEFINE  STORAGE  SECTOR  DIMENSIONS  IN  HECTOMETERS. 
0XSECT:N3X»UTMPG0 
OYSECTrOXSEC  T 

ALIGNMENT  IN  THE  X DIRECTION. 

MINIMUM  LEFT  POSITION  OF  LEFT  FOGE  OF  LEFTMOST  STORAGE 
SECTOR  IN  HECTOMETERS. 

XLEFT:XBASE-E00E 

MINIMUM  RIGHT  POSITION  OF  RIGHT  EDGE  OF  RIGHTMOST  STORAGE 
SECTOR  IN  HECTOMETERS 
XRIGHT=X3ASE# (N COL S-1 I •UTMPGO^EOGE 

ILEFT  : INTEGER  NO.  OF  EAST-WEST  GRID  POINTS  WHICH  WOULD  BE 
REQUIRED  TO  COVER  THE  DEFINED  EDGE  DISTANCE. 
ILEFT=EDGE/UTMP30 

XMIN  = UTM  UNITS  OF  LEFT  EDGE  OT  LEFTMOST  SECTOR  SUCH  THAT 
STORAGE  SECTOR  BOUNDARIES  WILL  FALL  HALF  WAY  BETWEEN  GRIO 
POINTS. 

30  XMIN:XBASE-( ILEFT-0.5 )»UTMPGO 
IF  (XMIN  .LE.  XLEFTI  GO  TO  40 
ILEFT=1LCFT*1 
GO  TO  30 

NXSECT  : INTEGER  NO.  OF  EAST-WEST  STORAGE  SECTORS  REQUIRED 
TO  COVER  SPACE  FROM  XMIN  TO  XRIGHT. 

40  NXSECT:(XRI3HT-XMIN)/DXSECT 
50  XMAX:XMIN*NXSECT»DXSCCT 
XOIfrXMAX-XRiGHT 
IF  IXOIF)  60.  80#  70 
6C  NXS“CT=NXSECT#1 
GO  TO  50 

XDIF  r excess  DISTANCE  ON  RIGHT  SIDE  OF  RIGHT  EDGE. 

CONVERT  THIS  DISTANCE  TO  GRID  UNITS  AMD  T RY  T 0 SPLIT  IT  UP 
ON  BOTH  SIDES  BY  COMPUTING  THE  NO.  OF  GRIO  UNITS  TO  MOVE  IN 
THE  left  X DIRECTION. 

70  NGMOVXrO.S •XCIF/UTMPGO 

XMIN=XBASE- tILEFT*NCHOVX-D .5I»UTMPG0 


55 

56 

57 

SI 


XMAX=XMIN*NX SECT*OXSECT 
80  IRXMAX=XMAX-X8ASE 
IRXMIN=XBASE-XMIN 
IRXMIN:-IRXMIN 


CFAS  SUBPROGRAM  CLEMENT  SECTOR 


59 

6C 

ei 

62 

63 

64 

65 

66 
67 


C ALISNMENT  IN  THE  T DIRECTION  IS  DONE  IN  THE  SAME  MANNER  AS 

C ALIGNMENT  IN  THE  X 3IRECTICN. 

Y3OT=Y0ASE- ED3E 

YTOP:YBASE+f NRCWS-1»»UTMPCD*EDGE 
I00WN=E03E/UT>1PGD 
90  YMIN=YBASE-tID0HN-0.5>*UTMPG0 
IF  (YMIN  .LE.  Y80T)  GO  TO  100 
I90WN=ID0WN*1 
GO  TO  90 


6B 

69 

70 

71 

72 

73 
7«t 

75 

76 

77 

78 

79 

80 
81 
62 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 


ICO  NYSECTrt YTCP-YMIN)/DYSECT 
110  YMAX=YMIN»NYSECT»OYSECT 
Y3I":YMAX-YT0P 
IF  (YOIF)  120,  140,  130 
120  NYSECT=NYSECT*1 
GO  TO  110 

130  N5M0VY=0.5»Y0IF/UTMPGD 

YMIN=YBASE- II 00 WN»N GMO V Y-0 .5 )• UTMPGO 


ymax=ymin+ny scct»dysect 

140  IRYMAX:YMAX-YBASE 
IRYMIN=YBASE -YMIN 
iRYMINr-IRYMIN 

nse:tr=nxsect»nysect 

print  400  NSECTR 

400  FORMAT  I IH  , • SECTOR  , 14,  • STORAGE  SECTORS  HILL  BE  USED  FOR  S 
•TORAGE  OF  RECENT  O0S/REP  DATA  RECORDS  IN  FILE  I.*) 

PRINT  410  OXSECT,  OYSECT 

410  FORMAT  (IH  , • SECTOR  - EACH  STORAGE  SECTOR  COVERS’,  F6.1,  • HECTO 
•METERS  IN  THE  X DIRECTION  AND’,  F6.1,  ’ HECTOMETERS  IN  THE  Y OIREC 
•TION’ i 


XMINK=XMIN/10.0 
XMA  XK=XHAX/ 10.0 

PRINT  420  NXSECT,  IRXMIN,  IRXMAX,  XMINK,  XMAXK 
420  FORMAT  (IH  , • SECTOR  13,  ’ STORAGE  SECTORS  IN  THE  X DIRECTION 

• HILL  SPAN  RELATIVE  X COORDINATES’,  19,  ’ THROUGH’,  19,  ’ HECTOM 
•ETERS’,  /,  44X,  'REPRESENTING  ABSOLUTE  UT M COORDINATES’#  F9.2#  ’ 
•THROUSH’,  F9.2,  ♦ KILOMETERS’) 

YMINKrYMIN/ 10.0 
YMAXK:YMAX/10.C 


PRINT  430  NYSECT,  IRYMIN,  IRYMAX,  YMINK,  YMAXK 
430  FORMAT  C IH  , • SECTOR  -’,  13,  ’ STORAGE  SECTORS  IN  THE  V DIRECTION 

• HILL  SPAN  RELATIVE  Y COORDINATES’,  19,  ’ THROUGH’,  19,  ’ HECTOM 
•ETERS',  /,  44X,  'REPRESENTING  ABSOLUTE  UTM  COORDINATES’,  F9.2,  ’ 

• THROUGH’,  F9.2,  ’ KILOMETERS’! 


102  RETURN 

103  END 
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CFAS  SUBPR08RAH  ELEMENT  SEDINT 


CLOUD -FOG •CF AS. SFDINT 


1 

Z 

3 

4 

5 

6 
7 

e 

9 

1C 

11 

IZ 

13 

14 

15 

16 

17 

18 
19 
ZO 
Z1 
ZZ 
Z3 
Z4 
Z5 
Z6 
Z7 
Z8 

29 

30 

31 
3Z 

33 

34 

35 

36 

37 

38 

39 
4C 
41 
4Z 

43 

44 

45 

46 

47 


SUBROUTINE  S^OINT 
C 

C ROUTINE  TO  INTERPRET  SURFACE  OBS/REP  IN  TERMS  OF  CFOB  PARAMETERS. 

C 

C SOURCES  OF  input  DATA  ARE  AVIATION  WEATHER  REPORTS  IN  AIRWAYS  AND 

C METAR  CODES  AND  SURFACE  SYNOPTIC  REPORTS  IN  SYNOP  CODE 

C 

C INPUT  DATA 

C IX  = X DISTANCE  OF  08S/REP  SITE  FROM  IXREFt  HECTOMETERS 
C lY  = Y DISTANCE  OF  OBS/REP  SITE  FROM  lYRETt  HECTOMETERS 
C IZ  = TERRAIN  HEI5HT  AT  OBS/REP  SITE.  METERS 
C ITIME  : TIME  OF  OBS/REP 
C ITYPE  : TYPE  0'  OBS/REP 
C IrAIRWAYS  -1  IF  A SPECIAL 

C 2:METAR  -Z  if  A SPECI  (SPECIAL) 

C 3:  SYNOP 

C lOD  : WIND  DIRECTION.  0-360  FROM  TRUE  NORTH 
C IFF  = WIND  SPEED.  METERS/SEC. 

C IPPP  = SEA  LEVEL  PRESSURE.  MILLIBARS 
C ITT  : SURFACE  TEMPERATURE.  DEGREES  KELVIN" 

C ITDr  SUR'^ACE  DEWPOINT.  DEGREES  KELVIN 
C ITSC  : total  SKY  COVER.  0-9  WMO  CODE  Z7D0 
C IVIS  r VISIBILITY- 

C AIRWAYS  - STATUTE  MILES*10000 

C METAR  - METERS 

C SYNOP  - WMO  CODE  4377 

C NWEA(J)  = PRESENT  WEATHER—  FROM  1 TO  7 ELEMENTS  HAY  BE  INPUT 
C AIRWAYS  - CFAS  CODE  1 

C ME  TAR  - WMO  CODE  46  78 

C SYNOP  - WMO  CODE  4677 

C IPW  = PAST  WEATHER.  C-9  WHO  CODE  45C0 

C NH  = SKY  COVER  DUE  TO  LOW  OR  MIDDLE  CLOUDS*  0-9  WMO  CODE  2700 
C ICL  = LOW  CLOUD  TYPE.  0-9  WMO  CODE  0513 

C IH  = HEIGHT  ABOVE  GROUND  OF  LOWEST  CLOUD.  0-9  WHO  CODE  1600 
C ICM  r MIDDLE  CLOUD  TYPE.  0-9  WMO  CODE  C515 
C ICH  = HIGH  CLOUD  TYPE.  0-9  WMO  CODE  0503 

C NStJ)  = SKY  COVER  DUE  TO  CLOUD  LAYER  - FROM  1 TO  10  LAYERS 
C AIRWAYS  - CFAS  CODE  2 

C METAR  - WMO  CODE  2700 

C SYNOP  - WMO  CODE  2700 

C ICTSIJI  r TYPE  OF  CLOUD  IN  LAYER.  0-9  WHO  CODE  0500 
C IHS(J)  = HEIGHT  OF  BASE  OF  CLOUD  LAYER 
C AIRWAYS  - IDO'S  OF  FEET 

C METAR  - WMO  CODE  1677 

C SYNOP  - WMO  CODE  1677 

C ITHN(JI  = CLOUD  LAYER  THICKNESS  INOICATOR< 


48 

49 

50 

51 
5Z 

53 

54 

55 

56 

57 

58 


C 1 IF  THIN 

c missing  if  not  thin 

C ICLG  = CEILING  DESIGNATOR  - FIRST  TWO  DIGITS  ARE  THE  INDEX  NO.  J OF 
C THE  CEILING  layer.  THIRD  DIGIT  HAS  A FOLLOWING  MEANING 
C 1 = MEASURED 

C 2 : AIRCRAFT 

C 3 = BALLOON 

C 4 = RADAR 

C 5 = ESTIMATED 

C 6 : INDEFINITE 

C ICLGV  = CHARACTERISTIC  OF  CEILING 
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CFAS  SUBPROORAM  ELCNENT  SFOINT 


C MISSING  = NOT  VARIABLE 

C 1 : VARIA3LE 

C IVISC  r VISIBILITY  CHARACTERISTICS 
Z MISSING  = not  variable 

C 1 = VARIABLE 

C CLOUO/FOC  DATA  BASE  PARAMETERS 
C 

C IVALU  = INFORMATION  VALUE  OF  THE  OBS/REP  11-10 1 

C C INDICATES  NO  DATA  USEABLE  FOR  DETERMINING  ANY  CFD8  PARAMS. 

C ID  INDICATES  AN  OBS/REP  WITH  ALL  NEEDED  DATA  PRESENT  AND 

C USEABLE. 

C 1 TO  9 INDICATES  AN  OBS/REP  WITH  SOME  MISSING  OR  NON-USEABLE 

C DATA. 

C NTCLC  = TOTAL  CLOUD  COVER.  fCD  - ICOI 

C NCEIL  r HEIGHT  OF  CEILING  LAYER  lACLI.  OEKAMETERS  ♦ TYPE  OF  CEILING 
C DIGIT  AS  PER  THIRD  DIGIT  OF  ICLG.  MINUS  IF  VARIABLE. 

C MINBAS  = HEIGHT  OF  BASE  OF  LOWEST  CLOUD  UGL» t OEKAMETERS. 

C MAXTOR  = HEIGHT  OF  THE  TOP  OF  HIGHEST  CLOUD  {ACLI»  OEKAMETERS. 

C MSPWE  = MOST  SIGNIFICANT  PRESENT  HEATHER  ELEMENT  IHMO  CODE  R6771 
C NVV  : PREVAILING  VISIBILITY  AT  SURFACE#  METERS.  NEGATIVE  IF  VARIABLE. 
C LC0VI9J  = PERCENT  CLOUD  COVER  IN  THE  CF03  LAVERS 
C 

C DERIVED  LAYERED  CLOUD  INFORMATION 
C 

C NUMLAY  = NUMBER  OF  LAYERS  GENERATED 
C KIND  = KINO  OF  CLOUD  LAYER 
C 1 = LOW 

C 2 = MIDDLE 

C 3 = HIGH 

C «t  = FOG 

C 5 r LOWEST  CLOUD 

C 6 = CLEAR  LAYER 

C ITHIN  = THIN  LAYER  DESIGNATOR 
C MISSING  = NOT  THIN 

C 1 : THIN 

C COVER  = CLOUD  COVER  IN  LAYER  (0.0  - 1.01 
C BASE  : HEIGHT  OF  THE  BASE  OF  LAYER#  FEET. 

C TOP  = HEIGHT  OF  TOP  OF  CLOUD  LAYER#  FEET. 


C NAP  ANO  WINDOW  DATA 
C 

C XREF=EAST-WEST  UTM  GRID  COORDINATE  OF  LOWER  LEFT  HAND  CORNER  OF  THE 
C U IN  DO  W • K M . 

C YREFr  NORTH-SOUTH  UTM  GRID  COORDINATE  OF  LOWER  LEFT  HAND  CORNER  OF 
C THE  WINDOW#  KM. 

C CMRO  = CENTRAL  MERIDIAN  OF  WINDOW 


COMMON  /ODSREP/  IX# lY #IZ # ITIME# lOBC# H YPE# IV ALU# NT CLC# NCEIL# NVV, 

• MINBAS  #MAXT0P#MSPHE#LC0V(9»  # ICL  # ITSC  #'ICM #ICH  #ICTS  (10 1 #NHEA ( 7 » #IPW # 
•I  03#1FF#IPPP,  ITT#IT0#IVIS#NH#IH#MS(10)-»IHS  (lD7#ITHNtlO>#ICLO#  ICLGV 
•#ivrs: #N0USE (sei 


COMMON /CLOUD S/NUML AY #KIND (101 #ITHIN ( 10  I #C0VER (10  I #B ASE ( 10 1 #TOP( IQ  I 
DATA  MISS/-32768/#FMISS/-32768./ 

COMMON /MAP /X REF#YREF  #CMR9 
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T 

r 


3 


i 


j 


lie 

119 

IZC 

121 

122 

123 

124 

125 

125 
127 

126 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 
15C 

151 

152 

153 

154 

155 

156 

157 

158 

159 
16C 
161 
162 

163 

164 

165 

166 

167 

168 
169 
17C 

171 

172 

173 

174 

175 

176 


DIMENSION  CODEflDI 

DATA  C03E78  2.  1 2 46.  t 492.  1 820.  tl  447.  1 2620.  • 4100'.  1 5740.  t 7 380  •• -32768  . 

• / 


C TOPCLR=ASSOMED  TOP  OP  ALL  CLOUDS 

T0PCLR=40CC0. 


C INITIALIZE  PARAMETERS 

VALU=0. 

MT:IA3S<ITYPEI 

C JUMP  TO  460  IF  08S/REP  TYPE  IS  NOT  AN  AIRUAYSr  METAR  OR  SVNOP. 

IF  IMT  .OT.  3 I GO  TO  480 
NUMLAYrO 
00  10  I=ltlO 
KINO(I)=MISS 
ITHINd  IrMISS 
C0VERtH:FMlSS 
BASid  IrFMISS 
10  T0PII)=FMISS 
NTCLC=MI SS 
NCEIL=MISS 
MIN3AS=MISS 
MAXTOP=MISS 
MSPWE=-1 
NVVrMISS 
DO  20  I=lt9 
20  LC0VIII:MISS 

0 CALCULATE  LATITUDE  OF  OBS/REP. 

XUTMrlX 

XUTM:( XREF+XUTM/IC. I /lOO. 

YUTM:IY 

YUTM  = « YREF+Y UTM/10. I /lOO. 

CALL  BAKUTHtOLONGf OLATf XUTHtYUTHtCMROI 

C CONSTRUCT  CLOUD  LAYERS  FROM  LAYER  CLOUD  DATA  IF  PRESENT 

IFINSIll  .SE.  Oi  CALL  L AYCLO lOLATt VALUI 

2 CONVERT  IM  0'’  SYNOP  CODE  TO  FEET 

IF(IH  .ST.  8 .OR.  IH  .LT.  01  GO  TO  IID 
HlTLOU=CODEdH«l  I 
60  TO  120 
110  HITL0M=FMISS 

C DETERMINE  MOST  SIGNIFICANT  PRESENT  WEATHER  ELEMENT. 

120  00  130  IH=lt  7 

IFINUEAIIUI  .LT.  01  GO  TO  128 

IF(NUEA(IU)  .6T.  99  .AND.  MT  .NE.  II  CO  TO  128 


L 

t 


ij 


‘ I 

'i 


L 
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1 


I 


1 

j 


I 


I 


! 


s 


177 

MNU~A=MOO(NUEA(IU ItlOOi 

178 

MMSPW:k03(M3PWE  »10D) 

178 

If (MNUEA-MMSPW 1 126fl22>124 

180 

122 

nSPUE=MAXO( NUEA llUi tMSPUE) 

181 

GO  TO  126 

182 

128 

MSPUE=NWIAI  lU 1 

183 

126 

NUEAdUIrMNUEA 

18i| 

00  TO  130 

t 

185 

128 

NWEACTUdMISS 

[ 

18S 

130 

CONTINUE 

i 

187 

( 

188 

C 

JUMP  TO  165  IF  VISIBILITY  IS  HISSIN5 

1 

188 

\ 

1. 

180 

IF( IVIS  .LT . 0)  50  TO  165 

181 

* 

192 

CONVERT  AIRWAYS  AND  SYNOP  VISIBILITY  COOES  TO 

VISIBILITY  IN  HCTERS 

183 

1 

188 

GO  TO  1 18Ct 160t 150) tMT 

195 

196 

c 

AIRWAYS  CODE  CONVERSION 

197 

3 

198 

180 

visnvis 

199 

VIS:VIS*0. 16093 

j 

200 

IVISrVIS 

201 

GO  TO  160 

i 

202 

[ 

203 

c 

SYNOP  CODE  CONVERSION 

L 

208 

(1 

20  5 

150 

IFCIVIS  .GT.  50)  GO  TO  152 

i. 

206 

IVISrlVIS*! 00 

J; 

20  7 

CO  TO  160 

208 

152 

IFI IVIS  .GT.  80)  GO  TO  158 

209 

IVIS:«IVIS-5C)»10D0 

i 

210 

00  TO  160 

1 

211 

158 

IF (IVIS  .LE.  89)  60  TO  156 

|i 

212 

IVIS=MISS 

213 

CO  TO  160 

i 

218 

156 

IVIS=327S0 

>1 

215 

160 

Nvvnvis 

1 

216 

( ; 

217 

c 

MAKE  NVV  NESATIVE  IF  VISIBILITY  IS  VARIABLE 

i, 

218 

r 

219 

IFCIVTSC  .EO.  1)  NVV=-NVV 

j , 

220 

! 

221 

c 

JUMP  TO  170  IF  THERE  WAS  NO  LAYERED  CLOUD  DATA 

IN  THE  OBS/REP  p 

222 

1 ' 

223 

165 

IfcnuMLAY  .eg.  01  go  to  170 

228 

!, 

225 

c 

CHECK  FOR  FOG  AND  ESTIMATE  PERCENTAGE  CLOUD  COVER  AND  TOPS  OF  : 

226 

c 

CLOUD  LAYERS  FROM  HORIZONTAL  VISIBILITY  AND 

TYPE  OF  FOG  ,, 

227 

1 • 

228 

CALL  FOGI TVTSfNWEAtAMTtVALU) 

1 : 

229 

2 30 

c 

JUMP  IF  LOWEST  aOUO  HEIGHT  IS  MISSINGI 

I 

231 

i 

232 

IF(HITL0W  .EG.  FmISS)  Gq  To  220 

j 

233 

< 

238 

c 

CODE  A 1/16  CLOUD  COVER 

235 

u 

I 


i 
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23B 

237 

23B 

239 

29r 

291 

292 

293 
291) 
295 
29  6 
297 
29  8 
299 

250 

251 

252 

253 
259 

255 

256 

257 

258 

259 

260 
261 
26  2 
263 
269 

265 

266 
267 
266 
269 
2 70 
271 
2 72 
273 
279 

275 

276 

277 
2 78 

279 

280 
281 
282 
283 
289 

285 

286 

287 

288 

289 

290 

291 

292 

293 
299 


NUMLAYrNUMLA Y*i 
KINOt  NUMLAY  ):5 
COVrR(NUMLAY  ):C.C625 
9ASCJ  NUMLAY  » = HITL0H 
GO  TO  225 

C CALCULATE  TOTAL  SKY  COVER  FROM  CODE  IF  NOT  MISSING 

170  IFCITSC  .LT.  0 .OR.  ITSC  .3T.  81  GO  TP  180 
CT0T=ITSC/8. 

C ASSURE  LOW-HIIOLE  CLOUD  COVER  NOT  GREATER  THAN  TOTAL  SKY  COVER 

C WHEN  TOTAL  SKY  COVER  NOT  MISSING  OR  OBSCURED 

IFINH  .GT.  ITSC  .AND.  NH  .lE.  9»  NHrlTSC 
GO  TO  190 
180  CTOTrFMISS 

C JUMP  IF  LOWEST  CLOUD  AMOUNT  PRESENT 

19C  IFCNH  .GE.  0 .AND.  NH  .LE.  91  6C  TO  200 
CLOWrFMlSS 
GO  TO  210 

C TREAT  OBSCURED  LOWEST  CLOUD  AMOUNT  AS  OVERCAST 

200  IFCNH  .EQ.  9 1 NHr8 
CLOW=NH/B. 

C CHECK  FOR  -00  AND  ESTIMATE  PERCENTAGE  CLOUD  COVER  AND  TOPS  OF 

C CLOUD  LAYERS  FROM  HORIZONTAL  VISIBILITY  AND  TYPE  OF  FOG 

210  CALL  c'OG  (I  VI  S.NWEAtAMTtVALU  > 

C JUMP  IF  FOG  completely  COVERS  SKY 

IFCNUMLAY  .3T.  0 .AND.  AMT  .GT.  .991  CO  TO  225 

C CONSTRUCT  CLOUD  LAYERS  FROM  MANDATORY  SYNOP  TYPE  DATA 

IFIICL  .GT.  9»  ICL:MISS 
IF« ICM  .DT.  9 ) ICM:MISS 
IFCICH  .GT.  9)  ICH:MISS 

CALL  SYNOP « CTOT  taOWtHITLO  Wt  ICL  » ICMt  ICH.  NW  EA  t OL  AT  t V A L.  MSPW  E ) 

VALU  = (VAL0*VALI/2. 

C IF  NO  LAYERED  CLOUD  INFORMATION  OBTAINABLE  FROM  OBSFREPt  JUMP  TO 

C 9 90 

220  IF| NUMLAY  . EO . 01  GO  TO  990 

C JUMP  IF  lowest  aOUO  BASE  IS  MISSING 

225  IFIHITLOW  .LE.  0)  GO  TO  300 

C DETERMINE  LOCATION  OF  THE  LOWEST  CLOUD 

DO  230  LNOrlfNUMLAY 
IFIKINOCLNO)  .EQ.  5»  GO  TO  290 
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r 

I 


1 

' 295 

230 

CONTINUE 

296 

DETERMINE  CLOUD  COVER  FOR  LOWEST  BASE. 

i* 

297 

1 298 

240 

DO  2G0  LNXrltNUMLAY 

299 

IF(KINO(LNXI  .EQ.  1)  00  TO  250 

300 

IF(KINOCLNX)  .NE.  21  GO  TO  260 

301 

250 

CLOiNTr-D. 0714285714  ♦ 1 .07 14 285  7»C0 VERl LNX  1 

1 302 

COV  ERI  L NO  1 = AM  AX  11  CL  DINT  10.06251 

j 

30  3 

GO  TO  300 

i 304 

260 

CONTINUE 

i 305 

• 

1 306 

C 

DETERMINE  CLOUD  TOPS 

307 

1 

i 

■ 308 

300 

ELEV=IZ*3.2808 

309 

{ 

310 

CALL  TOPSCELEVfNUEAtOLATl 

j 

311 

312 

LOWER  THE  HEI3HTS  OF  THE  TOPS  OF  LAYERS  DESIGNATED  AS 

THIN 

313 

i 

314 

DO  320  LNX=ltNUMLAY 

315 

LTYP=KINOCLNXI 

316 

GO  TO  ( 31Ct 310t 320t 320t 320 #3201 fLTYP 

317 

310 

IF tITHINfLNX  1 .NE.  1 1 GO  TO  320 

j 

1 

1 318 

TOP«LNX)  = aASElLNXl  ♦ 0 . 5* I TOP  1 LNXl -BASE  1 LNX1 1 

319 

320 

CONTINUE 

1 

320 

! 

321 

c 

DETERMINE  MTNBAS  AND  MAXTOR  OF  CLOUDS 

322 

BASINTrTOPCLR 

! 

323 

TOPINTrO. 

j-i 

324 

1 

325 

00  340  LNXn  iNUMLAY 

1 

326 

LTYP=KINOtLNXl 

: J 

327 

IFCLTYP  .EQ.  61  SO  TO  340 

« 1 

328 

IF« COVERI LNXl  .OE.  .0251  GO  TO  330 

329 

COVERILNXI=0.05 

1 

330 

330 

BASINT:AMIN1( 3A SIN T t BASE ( L NX  1 1 

1- 

f 

331 

T0PINT=AHAX1 (TOPINT. TOPf LNX 11 

' 

332 

340 

CONTINUE 

333 

MIN3AS=8ASINT*. 03048  * .5 

1: 

334 

MAXTOPrTOPINT •. 03048  *.5 

335 

t-. 

336 

0 

DETERMINE  PERCENT  CLOUD  COVER  IN  THE  CFDB  LAYERS  AND 

ioentipy 

337 

c 

LAVERS  CONTAINING  CLOUDS  OBSERVED  TO  BE  THIN 

■ . 

338 

339 

DO  440  JM:1.4 

- 

340 

DO  430  LNX=1>NUHLAY 

j ' 

341 

LTYPrKINOILNXl 

lj 

342 

SO  TO  1 360. 370t 380# 3901t JN 

343 

360 

IF  ILTYP  .EQ.  6 1 SO  TO  400 

344 

GO  TO  430 

34  5 

370 

IF  ILTYP  .EQ.  5 1 GO  TO  400 

346 

GO  TO  430 

34  7 

380 

IFILTYP  .EQ.  41  GO  TO  400 

’ 

348 

GO  TO  430 

1 i 

349 

390 

IF (LTYP  ,LE.  3 1 GO  TO  400 

, . 

r| 

350 

CO  TO  430 

j j 

'1 

351 

400 

NTBASE=BASE(LNX1 

1 ■ 

N 

352 

NTTOP=TOP«LNX1 

1 . 

t 

35  3 

c 

calculate  percent  CLOUD  COVER  To  nearest  5 PERCENT 

i] 

i 

Rfp 
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35M 

355 

356 

357 

358 

359 
36C 

361 

362 

363 

364 

365 

366 

367 

368 

369 
37C 

371 

372 

373 

374 

375 

376 

377 

378 

379 
38C 

381 

382 

383 

384 
335 

386 

387 

388 

389 
39C 

391 

392 

393 

394 

395 

396 

397 

398 

399 
4DC 
401 
4C2 
4C3 
4C4 

405 

406 

407 

408 

409 

410 

411 

412 


NAHT^COVER! LNX) *100.  ♦ 2.5 
NAHT=r ABS( NAMT-MOD tNAMT.5 I ) 

IFCNAMT  .CQ.  0 .AND.  KINO(LNX)  . NE . 6)  CO  TO  430 

C IF  OBS/REP  INOICATEO  A THIN  CLOUDt  C09E  LAYER  WITH  A THIN  OESIG. 

IF( ITHINI LNX)  .NE.  1)  GO  TO  410 
NAMT=NAMT»1 

C DETERMINE  INDEX  NOS.  OF  LOWEST  AND  HIGHEST  CFDB  LAYERS  INFLUENCED 

C BY  CLOUD  LAYER  NO.  LNX 

410  CALL  CFLAYt NTBASEtNTTOPfNTBASEtNTTOP) 

IF(NT9ASE  .EQ.  01  GO  TO  430 

C CODE  THE  AFFECTED  CFDB  LAYERS  WITH  THE  PERCENT  CLOUD  COVE’R  IN 

0 CLOUD  LAYER  NO.  LNX 

DO  420  LAY=NTBASEfNTTOP 
420  LCOVJ LAY) =N amt 
430  CONTINUE 
440  CONTINUE 

IFCITSC  .LT.  0 .OR.  ITSC  .GT.  91  GO  TO  450 
IFIITSC  .EG.  9)  ITSC=8 

NTCLCnOO.O*!  AMT  ♦ » 1 .- AMT  )•  IT  SC/ 8 .0 1 * 0.5 
GO  TO  460 

C JUMP  TO  460  IP  NOT  A SYNOP  TYPE  OBS/REP  OR  TOTAL  SKY  COVER  WAS 

C WOT  MISSING  IF  A SYNOP  TYPE  OBS/REP 

450  IFIMT  .NE.  3)  GO  TO  460 

C REDUCE  VALU  TO  5.  WHEN  TOTAL  SKY  COVER  IS  MISSING 

IFtVALU  .GT.  5.)  VALU=5. 

C JUMP  TO  480  IF  NO  CEILING  LAYER 

460  IFdCLG  .LT.  01  GO  TO  480 
LSC=ICLG/10 
CEILHrIHS(LSC)»100 
IF (MT  .EG.  1 » GO  TO  470 
IFIIHSILSC)  .LE.  50)  CO  TO  470 
CEILHr  (IHS  (L  SC  )-50)»lC00 
IFCIHSILSC)  .LE.  80)  GO  TO  470 
CEILHr3SC0P.  - ( 1 30CC . /90 . ) •ABS t DL A T ) 

470  NCEIL=CEILH». 03048 

NCEIL:10»NCEIL  ♦ MOD(ICLG.ID) 

IFITCLOV  .EG.  1)  NCEIL=-NCEIL 

480  IVALU=VALU 

IFIMSPUE  .EG.  -1)  MSPHErMISS 
RETURN 

490  IFINVV  .EG.  HISS)  GO  TO  500 
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VALU  = 1 . 

500  IFtHSPUE  .EO. 
VALU=VALU*1. 
GO  TO  430 
END 


aHDOtP  CF*S  SUBPROGRAM  ELEHENT  STOREC 


gPRTiS  CFAS. STOREC 
FURPUR  0026-10/23-13:58 
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CLOUD -FOG *0? AS. STOREC 


13 

MYX  = IREC(  lOXUTM 1 

14 

MYY=IREC (lOYUTMl 

15 

IF  (MYX 

.LE.  IRXMAX) 

GO 

TO 

6 

16 

4 

PRINT  5 

MYTIME • MYX. 

MYY 

17 

S 

FORMAT 

C1H2.  • STOREC  - 

DATA 

18 

•T0RA3E 

TIME  IS 

. • 

X 

19 

RETURN 

20 

6 

IF  (MYX 

.LT.  IRXMIN) 

GO 

TO 

4 

21 

IF  (MYY 

.GT.  IRYMAX) 

60 

TO 

4 

22 

IF  (MYY 

.LT.  IRYMIN) 

GO 

TO 

4 

SUBROUTINE  STOREC  IIRECJ 
e STORES  AN  OSS/REP  IN  THE  OBS/REP  CATA  BASE. 

C IREC  = STARTIN3  ADDRESS  OF  C3S/REP  •^ROM  CALLING  ROUTINE. 

COMMON  /BASE/  OXSECTt  DYSECTi  EDCE»  ICLOCK.  IDTIMEt  lOXUTMt 

• lOYUTMf  INUMOR.  ISTATIt  ISTATO.  JNUMBRt  JSTATIt  JST AT  0*  JTIMEt 

• LASTJ*  MAX3PS«  NSJNOUt  NOLHFJ>  NCOLS*  NGXt  NCY.  NINIr  NINTABr 

• NROUSt  NRPB^If  NRPBFJt  NSECTRi  NWDBKIt  NUOBKJt  NUOREC*  NXSECTt 

• NYSECTt  UTMPSOt  XBASEt  XMAXt  XMINt  YBASEt  YMAXt  VMlNr 

• NNEWRSIlDOt  NAlLRSIIOO).  ITABLEINt  SGOl  t IBUFIBTSOIt  JBUFIlOaOlt 

• JTIMESIIOCI.  IRXMAX.  IRXMINt  IRYHAX.  IRYMIN 
DIMENSION  IREC(l) 

MYTIME=IRECCIOTIME I 


y =*t  I7t  /I 


MYSECTrNOSECHMYX.  MYYI 
IF  (NINI  .LT.  NINTABJ  GO  TO  20 
10  CALL  ITOJ 
20  NNEH=NNEHRS(MYSECT» 

IF  (NNEU  .EQ.  NRP3FII  GO  TO  10 
IF  IN9JN0U  .EQ.  01  GO  TO  NO 
IF  IITMDIFCMYTIME.  JTIME)  .GE.  Q»  GO  TO  40 
PRINT  30.  MYTIME.  MYX.  MYY 

30  FORMAT  ( 1 HO . • STOREC  - DATA  RECORD  RECEIVED  TOO  LATE  FOR  STORAGE 
• TIME  15.  • X =•.  IT.  • Y =».  IT.  /I 

RETURN 

40  NALL:NALLRS(MYSECTJ 

IF  INALL  .EQ.  Ci  GO  TO  SO 
IF  (MYSECT  .EQ.  IBLOCK)  GO  TO  50 

CALL  9LKIN  (NU03KI.  I3UF.  MYSECT.  INUMBR.  ISTATI) 

50  IC0UNT=0 
j:l 

IF  (NINI  .EQ.  Cl  GO  TO  100 
DO  60  J=1 . NINI 

IF  (ITMDIF  (MYTIME . ITABLEfl.  Jll  .GE.  01  GO  TO  70 
IF  (ITABLEI4.  J I/lOO  .EQ.  HYSECTl  ICOUO<T:ICOUNT*1 
60  CONTINUE 
J=NINT»1 
CO  TO  100 
70  JNOUrNINI 
80  DO  90  1=1.  3 

30  ITABLEd.  JN0U»H:ITA3LE(T.  JNOUl 
I3KREC=TTABLE(4.  JNOWI 

IF  (IBKREC/IOO  .EQ.  MYSECT)  IBKR ECrlBlTREC ♦! 

ITABLttN.  JNOUn  IrIBKREC 
JN0H=JN0U-1 

IF  (JNOU  .GE.  Jl  GO  TO  80 
100  MYRECrlCOUNTH 

ITA3LEI1.  J)=MYTIME 
ITABLEI2.  J):MYX 
1TA3LE(3.  JIrMYY 
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53 

ITA3LECA>  JI =MYSECT*lCC»MYRrC 

63 

NlNI:NINr*l 

61 

IF  CNALL  .EO.  NRPBFTI  NALL: NR PBF I-l 

62 

MYHOROtr MYREC-1 I»NH3aEC 

63 

IF  (NALL-MYREC  .LT.  01  GO  TO  120 

6A 

nouget:nall •NUDREC 

65 

N0WPUT:N0UGET*NU9REC 

66 

110 

IBUFI NOWPUT IrlBUFINOWGET) 

62 

NOfc'SETrNOWGE  T-l 

68 

N0MPUT:N0UPUT-1 

69 

IF  INCUGET  .GT.  MYUOROI  GO  TO  110 

70 

120 

00  130  l:lf  NUOREC 

71 

MYW0RD=MYUCR0*1 

72 

130 

IBUFIMYWORO»:IRECII) 

73 

CALL  3LK0UT  (NUOBKIt  IBUFt  MYSECTf  INUNBRt 

7il 

iblock:mysect 

75 

NNEURSINYSECT|:NNEU*1 

76 

NALLRStMYSECT>:NALL*l 

77 

RETURN 

78 

EN3 

ISTATOI 
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CLOUD -P 
1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 
le 
17 

16 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 


06*CPAS. SYNOP 

SU9R0UTINE  SYNO P I CTO T t CLO W t HLOU i LOUT t MI9T • NHIT  t NU E A* OL A T* V ALi MSPU3 


ROUTINE  TO  CONVERT  TOTAL  CLOUD  COVERtLOUEST  CLOUD  COVER»LOUEST 
9ASCtAND  CLOUD  TYPES  INTO  LAYERED  CLOUD  INPORMATION. 

CTOT  = total  cloud  COVER  (RANGE  0-11 

CLOU  = LOWEST  CLOUD  COVER  (RANGE  0-19 

HLOU  = LOWEST  CLOUD  BASE  IN  PEET 

LOUT  = LOW  CLOUD  TYPE 

MIOT  = MIDDLE  CLOUD  TYPE 

NHIT  = HIGH  CLOUD  TYPE 

NUEA  = PRESENT  UEATHER 

DLAT  = LATITUDE 

DERIVED  LAYERED  CLOUD  INFORMATDN 

NUMLAY  = NUM3ER  OF  LAYERS  GENERATED 
KINO  = KIND  OF  CLOUD  LAYER 

1 = LOU 

2 = MIDDLE 

3 = HIGH 

4 : FOG 

5 : lowest  CLOUD 

6 = CLEAR  LAYER 
ITHIN  = THIN  LAYER  DESIGNATOR 

MISSING  = NOT  THIN 

1 : thin 

COVER  : CLOUD  COVER  IN  LAYER  (D.O  - 1.01 
BASE  = HEIGHT  OF  THE  BASE  OF  LAYERt  FEET. 

TOP  : HEIGHT  0'’  TOP  OF  CLOUD  LAYER*  FEET. 

DIMENSION  KCURU( 5 I tKPUEA ( 2C I • NUE A ( 7 1 

COMMON/CLOUDS/N UML A Y. KIN  0 ( 10 1 • ITHINf ID) t COVER( 10) • BA SE ( 101* TOP( 10 1 
DATA 

•3ASMI0/11700./ 

•T0PCLR/4OrC0./ 

•REOUCE/D. 8/ 

• KCURU/l>2f 2*  2*3/ 

•KPUEA/1*4*0*1*3*2*3*3*1*2*1*3*2*0*2/ 

CALCULATE  VALUE  ON  BASIS  OF  COMBINATIONS  OF  MISSING  DATA. 

val;ic. 

I'’ (CTOT  .LT.  -1.  .AND.  CLOU  .LT.  -1.)  VAL=VAL-9. 

IF  ((LOUT  .GT.  0 .OR.  N IDT  . 6T . 0). AND. (CLOW  .LT.  -1.))  VAL=yAL-3. 
If  ((LOUT  .sT.  0 .OR.  MIOT  .OT.  0 .OR.  CLOU  .GT.  0.0001)  .AND. 

• (HLOU  .LT.  -1.0)  VAL=VAL-3.0 

IF‘CT0T  .gT.  .0001  .AND.  LOUT  .lE.  0 .AnD.  mIDT  .LE.  0 .AND. 

• NHIT  .le.  C)  VAl:VAL-2. 

IF (VAL  .LT.  C.  ) VAL=D. 

CALCULATE  ASSUMED  HIGH  CLOUD  BASE. 

BASHI=35C00. -(13000./90. )*ABS(DLAT) 

CALCULATE  ASSUMED  LOU  CLOUD  BASE* 

KUEA=0 
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59 

G3 

61 

62 

63 

6*1 

65 

66 
67 
SS 

69 

70 

71 

72 

73 
7* 
75 
78 

77 

78 

79 

80 
81 
S2 
83 
8« 

85 

86 

87 

88 
89 
93 

91 

92 

93 
9M 

95 

96 

97 

98 

99 
100 
101 
102 
103 
108 
105 
108 
10  7 
108 
109 
113 
111 
112 
113 
118 

115 

116 
117 


30  20  NUHWrA=lt7 

IF  I NWEAI  NDPW'A  ) .LT.  10)  GO  TO  20 
(NWEA(NUMWEA)  ,LT.  50)  50  TO  10 
INOEXrNMEAl NJMW  lA)/1C-8 
KUEA=MAXCI KWEAtKCURUIlNOEX)  I 
GOT020 

10  ir  (NUEA(NUHUEAI  .GT.  291  SC  TO  20 
IN3EX=NUEAI NJKUEA)-9 
KUEArnAXO(KUEA.KPWEA(lNDCXI I 
20  CONTINUE 

8 A SLOW =2200. -3CD. •KMC A 
C SET  INDICATOR  FOR  NO  C8  OR  TCU. 

NCB  = 1 

C JUMP  IF  LOWEST  BASE  IS  HISSING. 

IF  (HLOU  .LE.  0.0)  GO  TO  30 

C CODE  1/15  CLOUD  COVER 

NUMLAYrNUHLA  Y«1 
KINDI NUHL  AY ) = S 
COVER! NUHL AY  1 = 0.0625 
BASE(NUHLAY)=HLOU 

C JUMP  IF  TOTAL  CLOUD  COVER  NOT  MISSING  AND  NOT  ZERO 

30  IF  (CTOT  .3E.  0.05)  GO  TO  110 

C JUMP  IF  TOTAL  CLOUD  COVER  ZER3. 

IF  lAOSICTOT)  .LC.  0.00001)  G3  TO  100 

C JUMP  IF  LOWEST  CLOUO  COVER  NOT  MISSING  OR  ZERO. 

IF  (CLOW  .GE.  C.05)  CO  TO  8C 

C RETURN  IF  LOWEST  CLOUO  COVER  MISSING. 

IP  (CLOW  .GT.  -1.0)  CO  TO  35 
RETURN 

C CODE  LOW  CLEAR 

35  NUMLAY=NJML AY*1 
KINOINUMLA Y) =6 
C0VER(NUMLAY)=0. 

BASEINUMLAYI =0. 

TOPI NUMLAY) =8500. 

RE  TURN 

C JUMP  IF  LOWEST  BASE  PRESENT. 

80  IF  IHLOW  .GT.  0.0)  60  TO  70 
C JUMP  IF  LOW  CLOUO  TYPE  PRESENT. 

IF  ILOWT  .GT.  01  GO  TO  60 
C JUMP  IF  LOW  CLOUD  TYPE  MISSING. 


1 
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lie 

119 

IF  «LOUT  .LT.  0)  GO  TO  50 

l?c 

121 

CODE  niOOLE  CLOUD 

122 

123 

NUnLAY=NUHL  «Y»1 

124 

KIND(NUHL*YI=2 

125 

C0VER(NUMLA Y) =CLOW 

126 

3ASE(NUnLAY)=8ASMI0 

127 

12e 

C 

CODE  CLEAR  LAYER  TO  BASE. 

129 

13C 

NUHLAYrNUHLA Y*1 

131 

KINDI NUHL AY  1=6 

132 

COVERI NUMLAY )=C. 

133 

BASE! NUNLAY 1=0. 

134 

TOPINUMLAYUBASMID 

135 

RETURN 

136 

137 

c 

CODE  LOW  CLOUD 

138 

139 

50  NU.>1LAY  = NUML  AY*1 

me 

KINDINUMLAYI =1 

141 

C0VCR(NUMLAY)=CL0W 

142 

BASE INUKLAYI =3ASL0U 

143 

numlay=njml  AY»1 

144 

KIND(NUf1LAYI=6 

145 

COVER(NUHLAri=C. 

146 

BASE INUHLAYI =0. 

147 

TOPI NUHLAYI =SASLOU 

146 

RETURN 

149 

15C 

c 

CODE  LOU  CLOUD 

151 

152 

60  NUNLAY=NUHLAY«1 

153 

KINCI NUMLAY  1=1 

154 

COVERI NUMLAY  IrCLON 

155 

SASEINUHLAY)=3ASL0W 

156 

157 

A 

CODE  CLEAR  LAYER  TO  BASE 

158 

159 

NUMLAY:NJML AY»1 

160 

KINDINUHLAYI=E 

161 

C0VERINUMLAY)=0. 

162 

BASE INUHLAYI =0. 

163 

TOPI NUMLAY) =BASLOM 

164 

return 

165 

166 

c 

JUMP  IF  NO  LON  CLOUD. 

167 

168 

70  IF  IHLOH  .6T.  6500.0)  60  TO  90 

169 

17C 

c 

CODE  LOW  CLOUD 

171 

172 

NUMLAY=NUMLA Y*1 

173 

KINCINUNLAY )=1 

174 

COVERI NUMLAY  l=CLOU 

175 

BASE  1 NUMLAY ) = AH AXl 1 HLOM t BA  SLOW! 

176 

CPAS  SUSPR03RAH  ELEMENT  SYNOP 


I 

I 

<1 


I 


i 

1 


I 

II 

I 


i 

1 

m 


a 

f 


I 


177 

178 

179 
183 
181 
182 

183 

184 

185 
18E 

187 

188 
i<J9 

93 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
2C1 
202 
20  3 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 
219 
223 
221 
222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 


C CODE  LOWEST  BASE  IF  OBSCURATION. 

(CLOW  .LE.  0.991  GO  TO  SC 
IF  IHLOW  .LE.  0.0)  60  TO  80 
BASE(NUHLAY) =NLOU 

C CODE  CLEAR  LAYER  TO  BASE 

80  NUHLAYZNUHLA Y«1 
KINCtNUHLAY  1 = 6 
COVER) NUMLAY IrC. 

BASE) NUHLAY  )=0. 

TOP(NUnLAY  irBASECNUHLAY-ll 
RETURN 

C CODE  MIDDLE  CLOUD 

90  NUMLAY=NUML AY*1 

l<IN3INUMLAY)r2 
COVERINUMLAYIrCLOM 
BASEINUMLAYI =HLOU 

C CODE  CLEAR  LAYER  TO  BASE 

NUMLAY  = NUMLA  Y«1 
KINO) NUML AY 
CO VERI NUMLAY  1=0. 

BASE) NUMLAY 1=0. 

TOPCNUMLAY)=BASEf NUMLAY-ll 
RETURN 

C CODE  ALL  CLEAR. 

100  NUMLAYrNUML AY»1 

KIN9IN0MLAYI =6 
COVERINUMLA Y) =C. 

BASE (NUMLAYIzG. 

TOPI NUMLAY) =T OP CLR 
RETURN 

C JUMP  IF  total  cloud  COVER  IS  OVERCAST 

110  IF  CCTOT  .GT.  0.99)  CO  TO  480 

C JUMP  IF  LOWEST  CLOUD  COVER  NOT  HISSING  AND  NOT  ZERO 

I''  (CLOW  .GT.  0.05)  GO  TO  480 

C CODE  ALL  CLEAR. 

NUMLAV=N0MLAY*1 
KINONUML  AY  )=6 
COVrRCNUMLAY )=C. 

BASE) NUMLAY ):0. 

TOPINUMLAY )=TOPCLR 

C JUMP  IF  LOWEST  CLOUD  COVER  MISSING. 


If  (CLOW  .LT.  -1.01  GO  TO  120 
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?36 

237 

238 

239 
29C 

291 

292 

293 
299 
295 
29  6 

297 

298 

299 
25C 

251 

252 

253 
259 

255 

256 

257 

258 

259 
26P 
261 
262 
263 
269 

265 

266 

267 

268 
269 
27C 

271 

272 

273 
2 79 
275 
2 76 

277 

278 

279 

280 
281 
282 
283 
289 

285 

286 

287 

288 
289 
29C 

291 

292 

293 
299 


: ASSUME  NO  LOU  CLOUDS 

GO  TO  293 

C JUMP  IF  LOWEST  BASE  PRESENT. 

120  IF  (HLOW  .GT.  C.C)  SO  TO  320 

C JUMP  IF  LOU  CLOUD  TYPE  MISSING  OR  ZERO. 

IF  ILOUT  .LE.  Cl  00  TO  130 

C CODE  LOU  CLOUD  DEFINITELY  PRESENT. 

01  = 1. 

G0T019C 

C JUMP  IF  LOU  CLOUD  TYPE  ZERO. 

130  IF  (LOUT  .EG.  0)  GO  TO  290 

C CODE  LOU  CLOUD  MIGHT  9E  PRESENT 

G1=C.5 

C JUMP  IF  middle  CLOUD  TYPE  MISSING  OR  EQUAL  ZERO. 

190  IF  (MIOT  .LE.  0 I GO  TO  150 
C CODE  MIDDLE  CLOUD  DEFINITELY  PRESENT. 

G2=l. 

GOT0160 

C JUMP  IF  MIDDLE  CLOUD  TYPE  ZERO. 

150  IF  (MIDI  .EO.  0)  GO  TO  200 
C CODE  MI03LE  CLOUD  MIGHT  8E  PRESENT. 

02=0.5 

C JUMP  IF  HIGH  CLOUD  TYPE  MISSING  OR  ZERO. 

160  IF  INHIT  .LE.  0 1 GO  TO  170 

C CODE  HIGH  CLOUD  DEFINITELY  PRESENT. 

G3=l. 

GOT018C 

C JUMP  IF  TOTAL  CLOUD  COVER  OVERCAST  OR  HIGH  CLOUD  ZERO 

170  IF  (CTOT  .GT.  0.981  GO  TO  190 
IF  INHIT  .E9.  01  GO  TO  19C 

C CODE  HIOR  CLOUD  MIGHT  BE  PRESENT 

G3:C.5 

C 


DETERMINE  THREE  RANDOM  LAYERS 
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295 

296 
29  7 

298 

299 

300 

301 

302 

303 
30>l 

305 

306 

307 

308 

309 

310 

311 

312 

313 
319 

315 

316 

317 

318 

319 

320 

321 

322 

323 
32i» 
325 
325 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 
34  7 

348 

349 

350 

351 

352 

353 


180  CALL  CASCl r31»G2»C3.CT0Tf CLDl »CLD2»CL03) 

C CODE  LOW  > HlDOLEr  AND  HICN  CLOUDS. 

NUNLAY=NUnL4y*l 
KINCI NUMLAY )=1 
COVERtNUMLAY  )rCL01 
9ASEI NUMLAY l=3ASL0U 
NUMLAY=NUMLAY*1 
KIHOJ  NUMLAY  J:2 
COVERI NUMLAY  lrCLD2 
BASE( NUMLAY IrOASHIO 
NUMLAY=NUMLAY*1 
KINCI NUMLAY 1=3 
COVERI NUMLAY  ) = CLD3 
BASEI NUMLAY )=3ASHI 
RETURN 

C DETERMINE  TWO  RANDOM  LAYERS. 

190  CALL  CASE2  (31.G2f CT0TtCLDltCL02l 

C CODE  LOW  ANO  MIDDLE  CLOUDS. 

NUMLAYrNUMLA Y»1 
KINOINUMLAY  )=  1 
COVERI NUMLAY irCLDl 
BASEI NUMLAY l=3ASL0U 
NUMLAY=NUMLA Y«1 
KINDI  NUMLAY  U2 
COVERI NUMLAY  |rCL02 
BASEINUMLAY)=3ASHI0 
RETURN 

C JUMP  IF  HIGH  CLOUD  TYPE  HISSING  OR  ZERO. 

2C0  IF  INHIT  .LE.  01  GO  TO  210 

C CODE  HIGH  CLOUD  DEFINITELY  PRESENT. 

C3=l. 

GOT  0220 

C JUMP  IF  HI3H  CLOUD  TYPE  ZERO. 

210  IF  INHIT  .EG.  0)  GO  TO  230 
C CODE  HIGH  CLOUD  MIGHT  BE  PRESENT. 

03=C,S 

C DETERMINE  TWO  RANOOM  LAYERS. 

220  CALL  CASE2  IGlt  G3>  CTOTt  CLOl f CL03| 

C CODE  LOW  and  high  ClOUOS  PRESENT. 

NUMLAY=NUNL  AY*1 
KINOINUMLAYI =1 


) 
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I 
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354 

355 

356 

357 

358 

359 
3EC 
361 
36Z 

363 

364 

365 

366 

367 

368 

369 
37C 

371 

372 

373 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 

385 

386 

387 

388 

389 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 

403 

404 

405 

406 

407 

408 

409 

410 

411 

412 


COVERf  NOMLAY  IrCLOl 
BASE( NUMLAY )=3ASL0H 
NUMLAYrNUMLA Y»1 
KINCI NUMLAY 1=3 
COVER*  NUMLAY  l=CLD3 
BASE! NUMLAY IrBASHT 

return 

C CODE  LOW  CLOUD  PRESENT. 

230  NUMLAY=NUMLA Y*1 
KINCI NUMLAY 1=1 
COVER! NUMLAY  ) = CTOT 
BASEINUMLAYI=3ASL0U 
RETURN 

C JUMP  IF  MIDDLE  CLOUD  TYPE  MISSING  OR  ZERO. 

240  IF  IMIDT  .LE.  01  GO  TO  250 

C CODE  MIDDLE  CLOUD  DEFINITELY  PRESENT. 

G2=l. 

GOT  0280 

C JUMP  IF  MIDDLE  CLOUD  TYPE  ZERO. 

250  IF  (HIOT  .EQ.  0 I GO  TO  300 
C CODE  MIDDLE  CLOUD  MIGHT  3E  PRESENT. 

02=0.5 

C JUMP  IF  HIGH  CLOUD  TYPE  MISSING  OR  ZERO. 

260  IF  (NHIT  .LE.  01  GO  TO  270 

C CODE  HIGH  CLOUD  DEFINITELY  PRESENT. 

03=1. 

G0T0260 

C BUILD  MIDDLE  LAYER  ONLY  IF  TOTAL  IS  OVERCAST  OR  HIGH  TYPE  IS  ZERO. 

270  IF  CCTOT  .GT.  0.981  GO  TO  290 
IF  INHIT  .EQ.  01  60  TO  290 

C CODE  HIGH  CLOUD  MIGHT  BE  PRESENT. 

03=0.5 

C DETERMINE  T UO  RANDOM  CLOUD  LAVERS. 

280  CALL  CASEZI G2f &3tCT0TtCL02tCLD3l 

C CODE  MIDDLE  AND  HIGH  CLOUDS. 

NUMLAY=NUML  AY*1 
KINDINUMLAVI =2 
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«X3 

•tin 

R15 

*16 

*17 

*18 

*18 

*20 

*21 

*22 

*23 

*2* 

*25 

*26 

*27 

*28 

*29 

*30 

*31 

*32 

*33 

*3* 

*35 

*36 

*37 

*38 

*39 

**0 

**1 

**2 

**3 

*** 

**5 

**e 

**7 

**8 

**9 

*50 

*51 

*52 

*53 

*54 

*55 

*56 

*57 

*58 

*59 

*60 

*61 

*62 

*63 

*6* 

*65 

*66 

*67 

*68 

*69 

*70 

*71 


COVERC  NUHLAY  )=CLD2 
a«SEI NUMLAY I=8ASHI0 
NUMLAYrNUMLA Y*1 
KINDI  N'JNL  AY  U3 
COVERI  NUHLAY  l=CLD3 
9ASEI NUHLAY )=aASHI 
RETURN 

C CODE  HIDOLE  CLOUD 

290  NUHLAY:NUHL AY*1 
KINOINUHLAYirZ 
COVER(NUHLAY):CTOT 
BASEINUHLAYIzBASHID 
RETURN 

Z CODE  HIGH  CLOUD. 

300  NUHLAYZNJHL AT»1 
KIN0<NUHLAY|r3 
COVERINUHLAYIZCTOT 
BASEINUHLAYI zBASHI 

C BUILO  clear  TO  TOP  IF  TOTAL  CLOUD  OVERCAST  AND  HIGH  TYPE  HSG  OR  ZERO. 

IF  (CTOT  .LE.  0.981  GO  TO  310 
IF  INHIT  .LE.  0)  GO  TO  100 
310  RETURN 

C JUHP  IF  NO  LOM  CLOUD 

320  IF  IHLOU  .6T.  6500.0)  60  TO  *30 

C CODE  LOW  CLOUD  DEFINITELY  PRESENT. 


61  = 1. 

C JUHP  IF  MIDDLE  aOUD  TYPE  HISSING  OR  ZERO. 

IF  (MTOT  .LE.  0)  GO  TO  330 

C CODE  MIDDLE  CLOUD  DEFINITELY  PRESENT. 

02=1. 

GOTO  3*0 

C JUMP  IF  MIDDLE  CLOUD  TYPE  ZERO. 

330  IF  IMIOT  .EG.  01  GO  TO  380 
C CODE  MIDDLE  CLOUD  TYPE  MIGHT  BE  PRESENT. 
02=0.5 

C JUMP  IF  HIGH  CLOUD  TYPE  MISSING  OR  ZERO. 

3*0  IF  INHIT  .LE.  Cl  GO  TO  350 
C CODE  HIGH  CLOUD  DEFINITELY  PRESENT. 


I 


i 
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<•72 

<•73 

03=1. 

<*?<• 

0070360 

%75 

%76 

C 

HIGH  TYPE  HISSING  OR  ZEROt  CODE  MIDDLE  CLOUD  IF  TOTAL  OVERCAST 

177 

178 

350 

IF  (CTOT  .GT.  0.981  GO  TO  370 

179 

IF  CNHIT  .EO.  0)  GO  TO  370 

18C 

181 

c 

CODE  HIGH  CLOUD  MIGHT  9E  PRESENT. 

182 

183 

G3=C. 5 

181 

185 

c 

DETERMINE  THREE  RANDOM  CLOUD  LAYERS. 

18B 

187 

360 

CALL  CAS  El ( G1 tS2t63tCT0TtCL01i CL02f CLD3I 

188 

189 

c 

CODE  LOU«  MIDDLEf  AND  HIGH  CLOUDS. 

19C 

191 

numlay:numl  AY*1 

192 

KIND«NUMLAYI=1 

193 

COVERtNUMLAY) =CL91 

191 

BASE(NUMLAY) =A MAX 1 ( B ASLOU t HLOU 1 

195 

NUMLAY  = NUML  AY«-1 

19S 

KIND<NUMLAY) =2 

197 

COVER(NUMLAY) =CL02 

198 

BASE (NUMLAY) =BASMID 

199 

NUMLAY=N'JML  AY»1 

5CC 

KIND (NUMLAYJ  =3 

501 

COVER(NUMLAYJ :CL03 

502 

BASE(NUMLAY>=3ASHI 

503 

RETURN 

501 

505 

c 

DETERMINE  TWO  RANDOM  CLOUD  LAYERS. 

506 

507 

370 

CALL  CASE2I G1 tGZfCTOTtCLDl fCLD2) 

508 

509 

CODE  LOW  AND  MIDDLE  CLOUDS. 

510 

511 

NUMLAYrNJML  AY*1 

512 

KINDCNUMLAYin 

513 

COVERINUMLA Y) rCLDl 

511 

BASE (NUMLAY) =AHAX 1 ( B AS  LOU t HLOW > 

515 

NUMLAY:NJML  AYU 

516 

KINDCNUMLA Yl r? 

517 

COWER(NUMLAY) rCL02 

518 

BASE(NUHLAY)=3ASMI0 

519 

RETURN 

520 

521 

c 

JUMP  IF  HIGH  Cloud  type  hissing  or  zero. 

522 

523 

380 

IF  (NHIT  .LE.  0)  GO  TO  390 

521 

525 

c 

CODE  HIGH  CLOUD  DEFINITELY  PRESENT. 

526 

527 

G3:l. 

528 

60  TO  100 

529 

530 

c 

JUMP  IF  HIGH  CLOUD  TYPE  ZERO. 

I 

I 

i 

i 

I 


t| 


L 
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531 

532 

533 

534 

535 
5 35 
537 
539 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 
5 75 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 


390  IF  «NHIT  .ZO.  01  GO  TO  420 


0 CODE  HIGH  CLOUO  MIGHT  9E  PRESENT. 

G3=C. 5 

C DETERMINE  TWO  RANOOM  ClOUO  LAYERS. 


400  CALL  CASE2( G1 *3  3.CT0TtCL01  .CL03) 

C CODE  LOW  AND  HIGH  CLOUDS. 

NUMLAY:NJHL  AY ♦! 

KINO (NUMLAY) :1 
C0VER(NUMLAY)=CLD1 
BASE(NUHLAY)  rAMAXKBASLOWtHLOW) 

NUMLAY:NUML  AY*1 
KIN3(NUMLAYI=3 
COVERINUMLA Y) :CL03 
BASEINUMLAYI rBASHI 

C CLEAR  70  TOP  IF  TOTAL  OVERCAST  ANO  HIGH  TYPE  MISSING 


IF  (CTOT  .LE.  C.98)  GO  TO  4 1C 
IF  (NHIT  .LT.  Cl  60  TO  ICO 
410  RETURN 

C CODE  LOU  CLOUD 

420  NUMLAYrNUMLA Y*1 
KINC«  NUML  AY  1=1 
COVER! NUKL AY  l = CTOT 
BAS El NUML AY l = AM AXl I SASLOUt  HLOU) 

RETURN 

C CODE  MIDDLE  CLOUD  DEFINITELY  PRESENT. 

430  62=1. 

C JUMP  IF  HIGH  CLOUO  TYPE  MISSING  OR  ZERO. 

IF  (NHIT  .LE.  01  GO  TO  440 

C CODE  HIGH  CLOUD  DEFINITELY  PRESENT. 

G3=l. 

GOTO  450 

C JUMP  IF  HIGH  CLOUO  TYPE  ZERO. 

440  IF  (NHIT  .EG.  Cl  GO  TO  4GC 
C CODE  HIGH  CLOUO  MIGHT  BE  PRESENT. 

G3=0.5 

C determine  two  RANOOM  CLOUD  LAYERS. 

450  CALL  CASEZ  l52t03tCT0T»CLD2.CLD3l 
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590 

591 

COOE  MI03LE  »N0  HIGH  CLOUDS. 

592 

593 

nuhl*y:njml  »y*i 

594 

KINOINUHLAYIr; 

595 

COVER! NUMlA  Y) :CL02 

596 

BAS' (N UNLAY) rSASHIO 

597 

NUMLA YCNUML  AY»1 

598 

KIN3INUNLAY>=3 

599 

COVERINUMLA Y) =CL03 

6C0 

BA Sr INUNLA (I =3 ASHI 

SOI 

RETURN 

602 

603 

COOE  MIOOLE  CLOUD 

601) 

605 

460 

NUHLAY:N'JHL  AY*1 

606 

KIN3(NUMLAYI  =2 

607 

COVERINUHLAYirCTOT 

608 

BASE (NUHLAY) =BASNID 

609 

RETURN 

610 

611 

JUMP  IP  LOW  CLOUD  AMOUNT  IS  MISSING. 

612 

613 

470 

IF  (CLOH  .LT.  -1.0)  GO  TO  120 

em 

615 

c 

NO  LOU  CLOUDSt  TEST  MIOOLE  ANO  HIGH  TYPES  ANO  TOTAL  CLOUD  COVER 

616 

617 

CO  TO  240 

618 

619 

c 

JUMP  IF  LOW  CLOUD  IS  OVERCAST. 

620 

621 

480 

IF  ICLOU  .3T.  0.99)  GO  TO  40 

622 

623 

A 

w 

JUMP  IF  TOTAL  IS  NOT  OVERCAST. 

e2<l 

625 

IF  <CTOT  .LT.  C.99I  GO  TO  490 

626 

CTOTrO .99 

627 

628 

c 

TOTAL  IS  OVERCAST.  JUMP  IF  HIGH  CLOUD  TYPE  GIVEN. 

629 

630 

IF  (N4IT  .CT.  0)  GO  TO  490 

631 

632 

c 

HIGH  CLOUD  UNKNOWN.  CLEAR  ONLY  TO  BASMID. 

633 

634 

NUMLAYrNUMLA Y.l 

635 

KINDI NUML AY )=6 

636 

COVER! NUMLAY 1=0. 

637 

BASE! NUMLAY 1=0. 

638 

TOPINUMLAY l=BASMIO 

639 

640 

c 

JUMP  =0R  LCU  CLOUD  AMOUNT  MISSING  OR  2ER0. 

641 

IFCCLOU  -0.05)  470.500.500 

642 

643 

COOE  ALL  CLEAR. 

644 

645 

4 90 

NUMLAY=NJML  AY*1 

646 

KIN3INUMLAYI  =6 

647 

COVERINUMLAY)=C. 

6«a 

BASECNUMLAY)=0. 
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6«t9 

ess 

esi 

652 

653 

654 

655 

656 

657 

658 

659 

660 
661 
662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 
681 
682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 
7 00 

701 

702 

703 

704 

705 

706 
70  7 


TOPCNUMLAY  IrTOPCLR 

C JUMP  -OR  LOU  CLOUD  AMOUNT  MISSING  OR  ZERO. 

IF  (CLOU  .LT.  C.05I  GO  TO  470 

C ASSURE  LOUCST  CLOUD  COVER  LOSS  THAN  TOTAL  CLOUD  COVCR  REQUIRED. 

C IN  ’CASES’. 

500  CTEMP=CTOT-0.01 

CLOUrAMINl (CLOUiCTEMPJ 

C JUMP  IF  LOU  CLOUD  TYPE  PRESENT. 

IF  (LOUT  .GT.  01  CO  TO  570 

C JUMP  IF  LOU  CLOUD  TYPE  MISSING  AND  LOUEST  BASE  LT  6500  FT. 

IF  (LOUT  .LT.  Cl  GO  TO  510 
IF  (HLOU  .LT.  6500.01  SO  TO  560 

C JUMP  IF  8I3H  CLOUD  TYPE  PRESENT. 

510  IF  (NHIT  .37.  C)  GO  TO  540 
C JUMP  IF  TOTAL  NOT  OVERCAST  AND  HIGH  TYPE  IS  HISSING. 

IF  (NHIT  .LT.  0)  GO  TO  520 
IF  (CTOT  .LT.  0.981  GO  TO  540 

C COOE  MIDDLE  CLOUD 

520  NUMLAYrNUML AY»1 
KINO (NUMLAY) =2 
COVER(NUMLA Y) =CTOT 
BASE (NUMLAYI =BASMID 
IF  (HLOU  .LE.  6500.01  GO  TO  530 
BASE(NUHLAY) =HLOU 
530  RETURN 

C DETERMINE  T UO  RANDOM  CLOUD  LAYERS. 

540  CALL  CASE6( CL0UtCT0TtCLD2»CL031 

C COOE  MIDDLE  AND  HIGH  CLOUDS. 

NUMLAYrNUML  AY’l 
KINO (NUMLAYI -2 
COVERtNUMLAYl =ClD2 
BASE(NUHLAYI rBASMID 
IF  (HLOU  .LE.  6500.01  GO  TO  550 
BASE  (NUMLAYI  =H  LOU 
550  NUHLAY=NUML AY*1 
KINO(NUMLAYI :3 
C0VER(N'JMLAYI  rCL03 
BASE (NUMLAYI r3ASHI 
RETURN 

C COOE  LOU  CLOUDS  MIGHT  BE  PRESENT. 
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CFAS  SUSPROORAM  CLCH£NT  SYNOP 


7C8 

709 

71C 

711 

712 

713 
7m 

715 

716 

717 

718 

719 

720 

721 

722 

723 
729 

725 

726 

727 

728 

729 

730 

731 

732 

733 
739 

735 

736 

737 

738 

739 
79  C 

791 

792 

793 
79  9 

795 

796 

797 
79  8 
799 

750 

751 

752 

753 
759 

755 

756 

757 

758 

759 

760 

761 
76  2 
763 
769 

765 

766 


560  Cl=0.5 
GOT0600 

C JUMP  IF  CB. 

570  IF  (LOUT  .09.  31  GO  TO  580 

IF  ILOUT  .EQ.  91  GO  TO  580 

C JUMP  IF  TCU 

IF  ILOUT  .EQ.  2>  60  TO  590 

C CODE  LOU  CLOUD  DEFINITELY  PRESENT. 

Girl. 

GOTOeOO 

C CODE  CS  PRESENT  AND  ASSURE  THUNDERSTORM  IN  UEATHER 

580  NC3=3 

NUEA(7)  = MAXD  INUEA(7lt90l 
GO  TO  595 

C CODE  TCU  PRESENT  AND  ASSURE  SHOUER  IN  UEATHER. 

590  NC9=2 

NUEAI7I=MAX0 (NUEA(7)t80) 

595  IFIMSPU  .LT.  NUEAf7)l  MSPU=NUEAI7) 

C JUMP  IF  MIDDLE  C.OUO  TYPE  PRESENT. 

600  IF  IMIDT  .3T.  01  GO  TO  710 

C JUMP  IF  middle  aOUO  TYPE  MISSING. 

IF  IMIDT  .LT.  0)  GO  TO  700 

C JUMP  IF  HIGH  CLOUD  TYPE  PRESENT. 

IF  INHIT  .GT.  0)  GO  TO  630 

C JUMP  IF  HIGH  CLOUO  TYPE  MISSING. 

IF  INHIT  .LT.  0)  GO  TO  630 

C CODE  LOU  AND  POSSIBLY  MIDDLE  AND  HIGH  CLOUDS. 

NUMLAY:NUML  AY*1 
KINDINdMLAYI=l 
COVERINUMLAYJ  =CTOT 
9ASEINUMLAYI =A MA X 1 I B A S LOU t KL OU I 
C RETURN  !'■  NO  C8  OR  TCU 

IF  INCB  .GE.  2)  CO  TO  610 
RETURN 

610  NUMLAY:NJNL AY*1 
KINDINUMLAY»=2 
COVERINUMLAYI =CT0T*REDUCE 
BASE INUMLAYI =8 ASMIO 


L 


1 1 


I 


CFAS  SU9P!?03R«N  CLCH^NT  SVNOP 

76  7 

763 

RETURN  NO  C3 

769 

770 

IF  INCB  .GE.  31  GO  TO  620 

771 

RETURN 

772 

620 

NUHLAY=NJHL  AY»1 

773 

KIND(NUMLAYI=3 

779 

C0VERINUHLAY)=CT0T*RE0UCE**2 

775 

SASECNUHLAY) =BASHI 

776 

RETURN 

777 

• 

778 

C 

JUMP  ON  NEITHER  OR  TCU  OR  CB. 

779 

780 

630 

GO  TO  I690t  660?  6801?  NOB 

781 

782 

C 

OETERMINi  TWO  RANDOM  LAYERS. 

783 

789 

690 

CALL  CASE6(  aOW  ?CT0T?CL01?  CL03) 

785 

786 

c 

CODE  LOU  AND  HIGH  CLOUDS. 

787 

788 

NUMLAY:NJHL AY?1 

789 

KIN9INUHLAYI=1 

7 90 

COVERINUMLAYlrCLOl 

791 

BASE INUHLAYI =AHAX1(BASL0U?HL0UI 

7 32 

NUMLAYrNUML  AY*1 

79  3 

KIN9(NUMLAYlr3 

7 99 

C0VERINUnLAY)=CLD3 

795 

BASE(NUHLAY) =BASHI 

796 

797 

c 

BUILD  CLEAR  LAYER  TO  TOP  IF  TOTAL 

IS  OVrRCAST  AND 

798 

c 

HIGH  TYPE  NOT  GIVEN 

799 

800 

IF  (CTOT  .LE.  0.98)  GO  TO  650 

801 

IF  INHIT  .LE.  01  GO  TO  100 

802 

650 

RETURN 

803 

809 

c 

CODE  LOW  CLOUD. 

805 

806 

660 

NUMLAYrNJML  AY*1 

807 

KINDINUMLAYin 

808 

COVERINUHLA Y) =CLOW 

809 

BASE INUMLAYI =A MAX 1 (8 AS LO W ?HLOV 1 

810 

811 

c 

DETERMINE  TWO  RANDOM  CLOUD  LAYERS 

• 

812 

CALL  CASE6I ClOW?CT0T?CLO2?CLD3) 

813 

819 

c 

CODE  MIDDLE  AND  HIGH  CLOUDS. 

815 

816 

numlay=njml  AY»1 

817 

KINDCNUMLAY) =2 

818 

COVER! NUML AY) =CL 02 •REDUCE 

819 

BASEINUMLAY)rBASMIO 

820 

NUMLAY:NJML  AY*1 

821 

KIN3(NUNLAY) r3 

822 

COVERINUMLAY) :CL03 

8Z3 

3ASEeNUMLAY)r3ASHI 

829 

825 

c 

BUIL9  CLrAR  LAYER  TO  TOP  IF  TOTAL  IS 

OVrpCAST  AND  HIGH  TYPt  NOT  GIvCN 

i 

t 


i 

I 

i 


i 
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SZ6 

827 

828 

829 

830 

831 

832 

833 

834 

835 

836 

837 

838 

839 
84C 

841 

842 

843 

844 

845 
84E 

847 

848 

849 

esc 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 
861 
862 

863 

864 

865 

866 

867 

868 
869 
8 70 

871 

872 

873 

874 

875 


IF  CCTOT  .L5.  0.981  GO  TO  670 
IF  IN-ilT  .Lt.  01  CO  TO  ICC 
670  RETURN 

C CODE  LOU>  niOOLE  AND  HIGH  CLOUDS. 

680  NUNLAYZNJHL AY»1 
KINO(NUHLAY) rl 
COVER(NUHLAY):CLOW 
BASI(NUHLAYI=APAXl(BASLOUfHLOUI 

C DETERHINE  TWO  RANDOH  CLOUD  LAYERS. 

CALL  CASES  (CL0U>CT0T»CL02fCL03l 
NUNLAY:N'JML  AY*1 
KINDtNUNLA Y)r2 

COVERtNUMLAYl =CLD2*RE0UCE  I 

SASE(NUHLAYI=SA5HID  j 

NUHLAY=NJHL AY»1 

KINDINUHLAY) r3  I 

COVER! NUMLAY) :CL 02*RE0UCE» *2 ♦ 1 1 .-CLD2»  REDUCE* *2 1 •CLD3 

BASE(NUHLAY)=BASHI 

C BUILO  CLEAR  LAYER  TO  TOP  IF  TOTAL  IS  OVERCAST  AND  HIGH  TYPE  NOT  GIVEN 

IF  CCTOT  .LE.  0.981  GO  TO  690 
IF  INHIT  .LE.  01  60  TO  ICC 
690  RETURN 

C CODE  MIDDLE  CLOUD  TYPE  MIGHT  BE  PRESENT. 

700  G2=0.5 
GOT  0720 

C CODE  MIDDLE  CLOUD  DEFINITELY  PRESENT. 

710  02=1. 

C JUMP  IF  HIGH  CLOUD  TYPE  PRESENT. 

720  IF  (NHIT  .6T.  01  GO  TO  800  , 

L 

C JUMP  ON  MISSING  HIGH  TYPE  ONLY  IF  TOTAL  IS  NOT  OVERCAST. 

IF  (NHIT  .BE.  01  60  TO  730 
IF  CCTOT  .LT.  0.981  GO  TO  770 

C JUMP  ON  EITHER  TCU  OR  CB. 


876 

877 

878 

879 

8ec 

881 

882 

883 

884 


730  GO  T0(740f750t76CltNCB 
C DETERMINE  TWO  RANDOM  CLOUD  LAYERS. 

740  CALL  C ASE6 (CL0H*CT0TtCL01<CLD2l 
C CODE  LOW  AND  MIDDLE  CLOUDS. 
NUHLAY=NUHLA Y«1 


1-84 


ii 


cfas  susprosrah  elchcnt  synop 


885 

888 

887 

888 

889 

890 

891 

892 

893 
899 
895 
39S 

897 

898 

899 

900 

901 

902 

903 
909 
905 
908 

907 

908 

909 

910 

911 

912 

913 
919 
915 
918 

917 

918 

919 

920 

921 

922 

923 
929 
925 
928 

927 

928 

929 

930 

931 

932 

933 
939 

935 

936 

937 

938 

939 

990 

991 

992 

993 


KIN3INUNLA Y>  rl 
COVcRlNUHLAY) :CLD1 
BASriNUHLAY) zAMAX 1 (9 AS LO W f HL OU I 
NUMLAYrNOML AY*1 
KINOCNUMLAYI =2 
COVERINUHLAYi :CL02 
BASrCNUMLAYl =3ASHTD 
RETURN 

C CODE  LOU  AND  MIOOLE  CLOUDS. 

C OETERNINS  TUO  RANDOM  CLOUD  LAYERS. 

750  CALL  CASE6  (CLOUt  CTOT.  CL  01 1 CL02} 

NUHLAY=NUHLA Y*1 

KIND*  NUML AY );1 

COVER*  NUMLAY  » = CLD1 

9ASE*  NUMLAY 1= AM AXl ( SASlOU. HLOU) 

NUMLAYrNUMLA Y*1 
KIND*  NUML  AY ) = 2 

COVER*  NUMLAY  U CLDl •REDUCE** 1 . -CLD 1« REDUCE » •CL02 

BASE*  NUMLAY )=3ASMID 

RETURN 

C CODE  LOU  MI30LE  AND  HIGH  CLOUDS. 

C OETERMINE  TUO  RANDOM  CLOUD  LAYERS. 

760  CALL  CASCC *CL0U.CT0T.CL01.CL02I 
NUMLAYrNJML  AY*1 

KINO*NUMLAY»rl 

COVER*NUMLAYJ :CL01 

BASE  *NUMLAYI =AMAX 1*8 ASLCUtHLOU) 

NUMLAY:NJML  AY*1 
KINO*NUMLAYI =2 

COVER*NUMLAYI =CL 01 •REDUCE*  II .- CLDl • REOUCEI  *CL02 
BASE*NUMLAY)=BASMIO 

numlay:numl  AY*1 

KINDINUMLAY) r3 

COVER*  NUML  A Y>  rCL  01 •REDUCE*  *2 

BASEINUMLAYI r3 ASHI 

RETURN 

C CODE  HIQR  CLOUD  MIGHT  BE  PRESENT. 

770  03rC.5 

GO  TO  81C 

C CODE  HIGH  CLOUD  DEFINITELY  PRESENT. 

8CC  G3rl. 

C JUMP  ON  EITHER  TCU  OR  CB . 

810  GO  TO  (820i  S90>  850lt  NCB 
C determine  THREE  RANDOM  CLOUD  LAYERS. 

820  CALL  cases  (32'63»CLOU»CTOTrCL01»CL02rCL03l 
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94<l 

395  C CODE  LOWt  KTOOLEt  AHD  HIGH  CLOUGS. 

395 

397  aJD  NUML*Y=N'JML  *Y*1 

396  KIN3(NUnL«YI =1 

393  COVERJNUMLA Y) =CL01 

3SC  BASECNUHLAYI =AnA XI { B ASLOU tHLOU I 

951  NUMLAY:NUML AY+1 

352  KIN3(NUMLAYI =2 

953  COVERINUHLA Yl =CLD2 

359  3ASE(NUNLAY) =BASHIO 

955  NUMLAY:NJML AY*1 

956  KIN3(NUHLAYI =3 

357  COVER(NUMLAYl:CLD3 

358  3ASE (NUHLAYI =3ASHI 

359  RETURN 
9ec 

3S1  C DETERMINE  THREE  RANDOM  CLOUD  LAYERS  HITH  TCU. 

362 

963  390  CALL  CASE3I C2 >5 3 tCL OUtCTOT tCLOl •CL02t CL03f RED JCEI 

969  GO  TO  830 

365 

966  C DETERMINE  THREE  RANDOM  CLOUD  LAYERS  KITH  CB. 

967 

968  850  CALL  C ASE9 C3 2tG3 • CLOU • CTOTt CLOl »CLD2tCLD3«RE0UCE I 

363  GO  TO  833 

970  END 
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CLOUD -FOG •CF AS. TOPS 


1 

2 

3 

A 

5 

6 
T 
8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 
2C 
21 
22 

23 

24 

25 

26 

27 

28 
29 
3C 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 
5C 

51 

52 

53 

54 

55 

56 

57 

58 


SU3R0UTINF  TO  PS  I TER HT tN UFA  .OLA T I 


ROUTINE  TO  OETERMINE  CLOUD  TCPS  OIVEN  CLOUD  3ASES.  CLOUD  COVER. 
AND  WEATHER. 


C 

r 


TERHT  = TERRAIN  HEIGHT  IN  FEET 

NUEA  = HEATHER  IN  AREA  lU.rO  CODE  4677) 

WEAHIT  = EXPECTED  HIEOHTS  OF  CLCUO  TOPS  IN  100  S OF  FEET  DUE  TO 
HEATHER 

KCURH  : HEATHER  FACTORS  FOR  HX  5C-99 

KPHEA  = heather  factors  HX  10-29 

THICKC  : THICKNESS  OF  CLOUD  IN  FEET  AT  MSL 

STHICK  = SLOPE  OF  CLOUD  THICKNESS  HITH  RESPECT  TO  BASE  OF  CLOUD 
ABOVE  KSL 

CLOTOP  = MAXIMUM  HEIGHT  OF  CLOUD  TOP  IN  FEET 
SAMT  = CONVERSION  FACTOR  FOR  CLOUD  COVER  TO  CLOUD  THICKNESS 
FACTOR 

DLAT  : LATITUDE 


C DERIVED  LAYERED  CLOUD  INFORMATION 
C 

NUHLAY  = NUMBER  OF  LAYERS  GENERATED 
KINO  = KINO  OF  CLOUD  LAYER 

1 = LOH 

2 : MIDDLE 

3 : HIGH 

4 r FOG 

5 = LOHEST  CLOUD 

6 = CLEAR  LAYER 
ITHIN  = THIN  LAYER  DESIGNATOR 

MISSING  : NOT  THIN 
1 = THIN 

COVER  = CLOUD  COVER  IN  LAYER  tC.O  - l.C) 
BASE  = HEIGHT  OF  THE  BASE  OF  LAYER.  FEET. 
TOP  = HEIGHT  OF  TOP  OF  aOUD  LAYER.  FEET. 


DIMENSION  NHEAf  7 1 . HEAHIT I 3 ) . KCUR H t 5) .KPHEA I ID) tT HICKC I 7), STHICKI7) 
COMMON/ CL OUDS/N UML  A Y . KIN C f 1C ) . ITHINI ID) . C OVER 1 10 ) . BA SE (10 ). TOPI 10) 


DAT  A 

•(HEAHIT«K).Krl .2 ) /9CC0 . . 140C0 ./ 

•SAMT/1.5/ 

• KCURH/1.2.2.  2.3/ 

•KPHEA  /I.  0.0. C.O.  1.  2.2.2.  3.  1.1.1.  2.  1.  2.2.2.  0.  2/ 
•THI:KC/0.»1287..2843..4323. .5864 ..7636 .*984 3 ./ 

• STHICK/0.  . 0. 1 31  OS.  C.  2552  3.  Q.  41-947.  C.  62  82  7. 0.8  7444. 1.1 191/ 


calculate  maximum  clouo  top 

CL0T0P=40C00.-( 10000. /90. ) .ABSIOLAT) 

calculate  heather  factor  3 HEIGHT. 
UEAHITC  3) =35000 .-113000. /90.)*Aas(DLAT) 
RETURN  IF  NO  CLOUO  LAYERS 
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M 


II  ' 

<'1 


PI 


J 


CPUS  SU9PR06R«M  ELCM^NT  TOPS 


59 

SO 

61 

62 

63 

69 

65 

66 

67 

68 

69 

70 

71 

72 

73 
79 

75 

76 

77 

78 

79 

80 
81 
82 
83 
89 

85 

86 

87 

88 

89 

90 

91 

92 

93 
99 

95 

96 

97 

98 

99 
100 
101 
102 
103 
109 

105 

106 

107 

108 

109 

110 
111 
112 
113 
119 

115 

116 
117 


irCNUPtAY  .5T.  01  CO  TO  1C 
RSTURN 

C SST  HrAT^CR  "ACTOR  TO  ZERO 

10  KWEA  =0 

0 STEP  TMRJ  WEATHER 

00  30  NUnHEA=l«7 

C JUMP  TF  HEATHER  LT  50 

IFC NUEAI NUMHEA)  .LT.  SO)  GO  TO  20 

C DETERMINE  HEATHER  FACTOR. 

INOEXrNHEAl NUMHEA)/10-9 
KUEA=HAXO(KHEAtKCURHIlNDEXI  ) 

GO  TO  30 

C JUMP  IF  HEATHER  GT  29  OR  LT  10 

20  IFI NHEAI NUMHEA)  .GT.  29)  GO  TO  30 
IF (NHEAINUMWEA I .LT.  10)  CO  TO  30 

C DETERMINE  HEATHER  FACTOR 

INOEX=NHEA (NUMHEA )-9 
KHEArMAXOTKHEAfKPHEAdNOEX)) 

30  CONTINUE 

C STEP  THRU  CLOUD  LAYERS 

00  60  LAYrltNUMLAY 
C JUMP  ON  KINO  OF  CLOUD 

ISHIT=KINO (LAY) 

GO  TO  (90«  9Ct  90t  90*  SOt  60)t  ISHIT 
C JUMP  TF  NO  SIGNIFICANT  HEATHER  PRESENT. 

90  IF(KUEA  .EO.  0)  GO  TO  50 
C DETERMINE  CLOUD  AMOUNT  THICKNESS  FACTOR 

FACAMT:SAMT»COVER(L  AY) 

C DETERMINE  TOTAL  aOUO  THICKNESS  FACTORS 

FACTrFACAMT^XHEA 
KFACTrFACTM  . 

DFACT:FACT* l.-KFACT 

: CALCULATE  CLOUD  TOP  IN  FEET  ABOVE  TER<>AIN 

TOP(L AY) :BASE(L  AY ) ♦THICKO ( KFACT) ♦STHIC KIKFACT ) •( BASE ( LAY )*rERHr)» 
•OFACT* (THICK0(KFACT*1 )«STHICK(KFACT*1)»(BASE(LAY)*TERHT) ) 


CF*S  SUSPR03RHH  TLEHENT  TOPS 


118 

119 

12C 

121 

122 

123 

129 

125 

126 

127 

128 
129 
13P 

131 

132 

133 
139 

135 

136 

137 

138 

139 
19C 

191 

192 

193 
199 

195 

196 

197 

198 

199 
ISC 

151 

152 

153 
159 
155 


LI.HT  CLOUD  TOP 

T0P»L4y|r«MrNl( 70“ (L 971# CL DTO") 

JUHP  IF  FOG  L»TER 

IFCISUIT  .10.  9 1 CO  TO  6C 

ACCOUNT  FOR  WEATHER  IN  ITS  OWN  RIGHT. 

TOPtLATlrAH AX  1C  TOP (L AY I . WE AHIT ( KUEA >1 
60  TO  6C 

JUMP  IF  FOC  LAYER. 

50  IFIISNIT  .EQ.  91  GO  TO  60 

DETERMINE  CLOUD  AMOUNT  THICKNESS  FACTOR 
FACAMT=SAMT« COVER  clay  I 

calculate  TOTAL  CLOUD  THICKNESS  FACTORS. 

KFACTrFACAMT  *1. 

0FACT=FACAMT*1.-KFACT 


C CALCULATE  CLOUD  TOP  IN  FEET  ABOVE  TERRAIN 

TOPiL  AY)  rBASECL  AY ) ♦T HICKO  C KF  ACT  I ♦STHICKC  K'" ACT  ) • I B ASE I L AY  I ♦TERHT ) ♦ 
•DFACT* (THICKClKFACT*ll*STHICK(KFACT«ll9TBASr(LAYI*TrRHT) ) 

C LIMIT  CLOUD  TOP 

TOPILAY)=AMI NICTOPCLAY I tCLDTOPI 
60  CONTINUE 
RETURN 
END 
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CFAS  SU3?R537;'*  rLCV.IfJT  UAJINT 


:i.ouc-roc*cFA: 
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10 

c 

It 
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11 
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IH  r ‘ 

3 

I TIME 

lA 
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ITYPE 

IS 

2 

III  I) 

15 

c 

IPII) 

17 

* 

IT!  I) 

1 P 

ISDir 

19 

2 

NRRL 

n o 


32 

33 
3 u 
35. 
3f. 
’7 
32 
3? 
Kf 

a: 

A? 

A3 

UA 

“S 

AC 

a7 

a:. 

A? 

it 


;.A 

',5 

E€ 

57 

Ee 


.UA3I,\T 

SU3A0UTlNr  UADINT 

ROUTINE  TO  INTERPRET  URRER  AIR  035/RE’  IN  TER'IS  0^  CFOS  PARAKETER: 

)F  input  OA-'A  are  upper  air  33UiN0IN35  (RAOSIJ  OF  PRESEURE. 


Y OIETANC:  OF  RA03  SITE  FRCY  lYREF.  H EOT  C flET  E RS  . 
STATION  FLIVATTON  AECYF  YEAN  SEA  tEVL*  NETERS. 

: T IX  E 0'  ’AC.  "if  ( S-:  AAE) 

: At  t-A  I!^  A special  RAO?) 

: AlTTTUOE  of  RA03  REPO.RTINO  LEVEL.  YETERS 
= rRESSLRr  C"  RACE  REPORTING  LEVELS.  NILLISARS.IO 
: temperature  of  :!A0R  REPORTINO  level.  (3E3.  K.  1.1,0 
) = CrUFOINT  DEPRESETCN  OF  RAGS  rEPORTTNC  LEVEL.  (SEG 
: NUM3ER  OF  RA03  REPORTI.NO  LEV'^LS 

OiOUG/TOO  DATA  3AEE  PARAXETERS 

I’/AlU  a Ifl'*ORXATEON  VALUE  CF  THE  RA03  11-10) 

iA.XEVcns  cbtae.nable  frox  The  pac3. 

C.R  inconsistent  data  in  ’HE  RA03. 


2A 

C 

c “ 

NO  CFOS 

25 

2 

ID  = 

NO  Miss 

2C 

C 

0— ’ P 

r S CM  c m: 

2 

MINBAS 

: HEIGHT 

2 ° 

C 

MAXTCr 

: HEECHT 

2 '3 

• 

LSUVI  0) 

: P EP  0 r 

CL0U3  COVER  IN  THE  CFuO  LAYERS. 

CO- MON  /O  SO  REP/  IX.  lY.  IH  , T TI-E  . 13  3 C . IT  Y ’ E . TV  A LU  . NU  IT  ) . .XIN3AS. 
..XANTCP.NLV  .LCOVI  S ) .T2(  30)  .IP|  30  .17130)  .105  f 30  .NRRL 

51  PENSION  HX  PI  0) .HLE VI 10 .P-P 19 ) .TMPC  P) .DPP ( 0 ) 

CATA  KLEV/0.  .150. .30  0. .see. . 1 000 . . 2000 . . 3 FOG . . 5 COO . .0 pOO . . lOCOO . / 
DATA  riss/-T27r,e/ 

OP  1 layai.e 

1 LCOVI  LAY)  :.XIS5 
ITS  -0 

DO  20  LEV=2.NRRL 

ICNCRE  REPORT  IF  INCORRECT  PRESSURE  CONVENTION 

IFITPILFV)  .LT.  I ACSIIPC LEV-: ) ) ) GO  TO  5 
VAL'JRC. 

GO  TO  200 

ICNCRE  LEVEw  IF  PRESSURE  IS  MISSING 
E IPliriLEV)  .NE.  MISS)  00  TO  10 

nrrlrn.Rp.-i 

00  7 JrLEV.NRRL 
II  I J)  = IEI JA) 


1-90 


I 


CFAC  5’J3’'?C:^Ari  ILCKINT  JAD’NT 


53 

XP( JI=IP( JA) 

3? 

IT(J)-IT(JA) 

51 

7 

IC0(  JinOD  fJA) 

S2 

la 

CONTINOl 

G3 

lF(IT(LrV>  .GT.  0)  ITC:ITC»1 

CA 

# 

25 

C0NTINU5 

E5 

55 

2 

I3N0P"  RX'^OOT  IF  TEMPtPATURI  NOT  SPICIFIIO  AT  TWO  L"V" 

5 7 

51 

IF( ITC  .15.  2 ) 50  TO  35 

CS 

VALU-O . 

7? 

CO  TO  205 

71 

72 

2 

IN3U.=  : A ■'IM’lRATURC  5P5CIFICATI3V  AT  T HI  HIGHEST  L'^VF 

73 

* 

7A 

35 

IF(TT(NRRL>  .NC.  HISS)  GO  TO  40 

7!) 

HRR!.rr,'RRL-l 

' o 

77 

C 

1G.\0RE  REPORT  IF  RA03  SITE  ELEVATION  IS  KISSING 

73 

73 

30 

IF  (IH  .NE.  KISS)  CO  TO  50 

■13 

VALUrC. 

•11 

CO  TC  200 

12 

50 

i7( i)=rH 

83 

m 

2 

CALCULATE  HEIGHT  IN  KETERS  ABOVE  KEAN  SEA  LEVEL  OF  T 

35 

C 

C"  THE  CFOS  LAYERS 

.35 

f 7 

TRHrlH 

33 

CO  SC  lay::  ,9 

8 3 
o 

GO 

HKO(LA Y)=i  (H Live  LAY) +HLEV(LAY  + 1)  )».1S2  4>-TRH 

51 

f* 

OETERKINE  TEKPEPATURE  and  dew  point  SPREAC  for  THE  croi 

■32 

O -J 

CALL  RA CBIHKPfPKP.TKPtOMFtVAL ) 

33 

"5 

o r 

c 

OETERKINE  CLCUD  cover  FCF  CFC5  layers 

^ u 

o ■» 

CA  LL  OEFCLCt  ?KP.TKP.DKP*LCOV) 

03 

0 0 

V 

OETERKINE  lowest  and  HIGHEST  LAYERS  WTTH  CLO.UDS 

1 r'' 

in 

KINSASrlD 

^ -» 

KAXTOPAO 

m< 

DO  7C  lay::. 3 

1C3 

LAYR:15-lAY 

155 

X'-(|.:ov(LAYR  ) .NE.  KISS  .AND.  LCOV(LAYR)  .GT.  0)  KINBA 

1"6 

• S .L  AYR) 

157 

IFtLCCVILAV)  .NE.  KISS  .AND.  LCOV(LAY)  .GT.  C)  KAXTOP:: 

158 

•LAY  ) 

15  3 

70 

CONTINUE 

115 

111 

c 

CALCULATE  CASE  ANC  TOPS  OF  CL  ODD  LAYERS  IN  CEKAKETERE 

112 

113 

Ir(KAXTOP  .LE.  0)  KAXTCPAKISS 

113 

IFfKINCAS  .CE.  ID)  KTNSA;:MISS 

115 

IFIKINBAS  ."0.  KISS)  GO  TO  EC 

115 

MIN:aS=H.CV !K IN 3AS ) *.D3D49 

117 

80 

lr(KAXT0P  .10.  KISS)  CO  TC  30 

1-91 


CALCULATE  VALUE  OF  03S/REP 


9C  MLAY:' 

CO  10'’  LAY:lt  9 

Ir(LCCV(LAY)  .EG,  KISS)  KLAY=YLAY-1 
100  CONTTNUE 

IF  (NLAY  ,NE.  C)  CO  TO  IIC 
VALU=n. 

CO  TO  OCC 

110  IF(YLAY  .c:.  1!  VALU=C. 

IFtYLAY  .CE.  SI  VALU=o. 

IFfMLAY  .C:.  5)  VALUnO. 
yALU:(  (E.*VALU)  + VAD/G. 

200  IVALUrVALU 

return 

END 
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CL0U0-F06*CFAS.UTM 


SUBROUTINE  UTM( L ON .L A T t C AS T t NORTH t CM RD I 
CONVERTS  UON'^ITUOE  AND  LATITUDE  TO  UTM  EASTING  AND  NORTHING. 
CMRD  IS  LONGITUDE  OF  CENTRAL  MERIDIAN. 


REAL  LAT 
REAL  LON 
REAL  NORTH 
A = G3.78CCSA 
AREO  = 63.3533A5 
E : .rC681A78M9 


ID 

0 r 

.C17A53292  • LAT 
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12 
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COSIQI 

13 
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SIN( Ql 

lA 

T : 

S/C 

15 
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2.  • S • C 

IG 

0 = 

1.  - (2.  • S • SJ 

17 

SA  : 

: 2.  • S2  *9 

18 

RHO 

= A / SORTIl.  - (G.7Ge6580E-D3»S»S)l 

19 

0 r 

Q ♦ C.005D76A92  • tC  - (.5  • SZIII  ♦ 

20 

s 

(A.  2951  3E-05  • 1 11  .5  • Ql  - S2  » (SA 

21 

XNl 

= AREO  • 0 

22 
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C • S • l.I 7S2215E-11*P*P 

23 
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29 

s 

(5.  - (T»TI  ♦ (9.  • l(E*C)**2n  ♦ (A. 

25 

NORTH  = .9996  • (XNl  * (0  • RHOli 

26 

D : 

C • A.8A31363E-06*P 

27 

0 = 

3 ♦ C(C»»3)  • (1.  - (T»TI  ♦ ((E*C»»»2»I 

28 

$ 

1. 8992115E-17»(P»*3II 

29 

EAST 

= (RHO  « 0 • .99961  ♦ 5. 

30 

RETURN 

31 

END 
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4 3A!;C|T  0T3K:,F/1/ 

5 2AS3<T  CrSK4i‘^/l/ 
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9 SU3i  F3.9rSK3  ' 

1C  £'JSC  F4iDISK4 


1. 


i 

i 

t. 

N 

( 

i; 

i 

} 

I 

i 


n 1 


if 


ii 

f 

I 

f 

i 


1-103 


1 


Ground  Fog 
Blowing  Dust 
Blowing  Sand 
Blowing  Snow 
Blowing  Spray 
Fog 

Ice  Fog 

Drizzle,  very  light 
Dr’.zzle,  light 
Drizzle,  moderate 
Drizzle,  heavy 
Freezing  Drizzle,  very  light 
Freezing  Drizzle,  light 
Freezing  Drizzle,  moderate 
Freezing  Drizzle,  heavy 
Rain,  very  light 
Rain,  light 
Rain,  moderate 
Rain,  heavy 

Freezing  Rain,  very  light 
Freezing  Rain,  light 
Freezing  Rain,  moderate 
Freezing  Rain,  heavy 


06-07 
11  - 12 
30  - 35 


38  - 39 


41  - 49 
41  - 49 


52  - 53 
54  - 55 


62  - 63 
64  - 65 
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AIRWAYS 


TABLE  II-l  (Continued) 

CFAS  CODE  1 

NUMERICAL  CODIFICATION  FOR  CFAS  OF 
AIRWAYS  WEATHER  AND  OBSTRUCTION  TO  VISION  SYMBOLS 


DESCRIPTION 


Snow,  very  light 
Snow,  light 
Snow,  moderate 
Snow,  heavy 

Snow  Grains,  very  light 

Snow  Grains,  light 

Snow  Grains,  moderate 

Snow  Grains,  heavy 

Snow  Pellets,  very  light 

Snow  Pellets,  light 

Snow  Pellets,  moderate 

Snow  Pellets,  heavy 

Ice  Crystals 

Ice  Pellets,  very  light 

Ice  Pellets,  light 

Ice  Pellets,  moderate 

Ice  Pellets,  heavy 

Ice  Pellet  Showers,  very  light 

Ice  Pellet  Showers,  light 

Ice  Pellet  Showers,  moderate 

Ice  Pellet  Showers,  heavy 

Rain  Showers,  very  light 

Rain  Showers,  light 

Rain  Showers,  moderate 

Rain  Showers,  heavy 


NEAREST 
WMO  CODE 


76  or  78 


TABLE  II-l  (Continued) 

CFAS  CODE  1 

NUMERICAL  CODIFICATION  FOR  CFAS  OF 
AIRWAYS  WEATHER  AND  OBSTRUCTION  TO  VISION  SYMBOLS 


^ AIRWAYS 

i CODE 

DESCRIPTION 

NEAREST 

WMO  CODE 
4677 

CFAS 

CODE 

> SW— 

Snow  Showers,  very  light 

85 

85 

i SW- 

Snow  Showers,  light 

85 

185 

i SW 

Snow  Showers,  moderate 

86 

86 

1 SW- 

Snow  Showers,  heavy 

86 

186 

Hail,  very  light 
Hail,  light 
Hail,  moderate 
Hail,  heavy 

Thunderstorm,  light  or  moderate 
Thunderstorm,  severe 


TABLE  II-2 
CFAS  CODE  2 

NUMERICAL  CODIFICATION  FOR  CFAS  OF 
AIRWAYS  SKY  COVER  SYMBOLS 


AIRWAYS 


DESCRIPTION 


NEAREST 
WMO  CODE 


- X 
X 

O 

cp 

dp 

© 


Partly  obscured  sky 
Totally  obscured  sky 
Clear  sky 

Scattered  (O. 1-0.5  sky  cover) 
Broken  (0.6-0. 9 sky  cover) 
Overcast  (l.O  sky  cover) 


None 

9 

0 

1 - 

5 - 

8 


4 

7 


For  a minus  sign  ( - ) preceding  (J)  , dP  or  © , set  variable  name 


